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

Var

fam, name, otch:string;

begin

write ('Введите фамилию - > ') ;

readln (fam) ;

write ('Введите имя - > ') ;

readln (name) ;

write ('Введите отчество - > ') ;

readln (otch) ;

writeln ('Ваше Фамилия И. О. = ', fam,' ', name[1],'.', otch[1],'.') ;

readln;

end.