Составить по информатике диалог в паскале

Program Privet;
    Var st:string;
BEGIN
   Writeln ('Напишите Ваше имя');
    Readln(st);
      Writeln ('Привет  ',st,' !');
  Readln;
end.