Как записать программу в vba которой в блоке ввода данных будет вводиться фамилия и имя , а блоке вывода фраза " фамилия имя". где вместо фамилии и имени введение данные.

Var
fam,name,otch:string;
begin
write('Введите фамилию -> ');
readln(fam);
write('Введите имя -> ');
readln(name);
write('Введите отчество -> ');
readln(otch);
writeln('Ваше Фамилия И. О. = ',fam,' ',name[1],'.',otch[1],'.');
readln;
end.