в чём ошибка? я начинающий программист, помогите.

var Name : string;

var Surname : string;

begin

Writeln('Имя?'); Readln(Name);

Writeln('Фамилия?'); Readln(Surname);

Writeln('Здравствуй, ' ,Name, ' ', Surname,'!')

Writln('Нажми enter'); Readln;

end.