Составьте программу на языке паскаль: компьютер спрашивает человека, как его зовут, а потом печатает, обращаясь по имени: ", ! ", " пишет программу"

Var s:string;
begin
writeln('Как тебя зовут?');
readln(s);
writeln('Здравствуй, ',s,'!');
writeln(s,' пишет программу')
end.