Написать программу, которая будет спрашивать имя пользователя, получать ответ и выводить на экран вида: , ! как твои дела?

Program z1;
var
a:integer;
begin
writeln ('введите имя');
readln (a);
writeln ('привет!',a);
end.

Вот, написано в Паскале, если что.

program name;
Var a: string;
begin
Writeln('Введите своё имя');
Read(a);
Writeln('Привет,',a,'! Как твои дела?');
end.