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

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