Составить програму с типом данных string pascalabc

Program String;
var
a:string;
begin
writeln('Как тебя зовут?');
readln(a);
writeln('Приятно познакомиться, ', a,'.');
readln;
end.