Ещё раз о программе «Диалог с компьютером»

uses Crt;
Var Inja: String;
       Vozrast: Integer;
begin ClrScr;
WriteLn(‘ Привет, я компьютер, а тебя как зовут?’);
Write(‘ Меня зовут : ‘);
    ReadLn(Imja);
WriteLn(‘ Очень приятно’, Imja,’ Сколько тебе лет? “);
    ReadLn(Vozrast);
      gotoXY(1. whereY-1);
         deline;
WriteLn(‘ Мне ‘, Vozrast, ‘ лет’);
WriteLn(‘ Ого! Целых ‘, Vozrast, ‘ лет. Да ты совсем взрослый!’);
   ReadLn
end.

Здравствуй, я компьютер, а тебя как зовут?
Меня зовут Петя
Очень приятно Петя. Сколько тебе лет?
Мне 16 лет
Ого! Целых 16 лет. Да ты совсем взрослый

uses Crt;
Var Imja, Vozrast, Text: String;
begin ClrScr;
WriteLn(‘ Здравствуй, я компьютер, а тебя как зовут?’);
     Write(‘ Меня зовут ‘);
        ReadLn(Imja);
WriteLn(‘ Очень приятно ‘,Imja, ‘. Сколько тебе лет?’);
      Write(‘ Мне ‘);
        ReadLn(Vozrast, Text);
WriteLn(‘ Ого! Целых ‘,Vozrast, ‘ лет. Да ты совсем взрослый’);
     ReadLn
end/

Здравствуй, я компьютер, а тебя как зовут?
Меня зовут Петя
Очень приятно Петя. Сколько тебе лет?
Мне 16 лет
Ого! Целых 16 лет. Да ты совсем взрослый
Всё. Конец программы.

Var Text: String;
begin
  WriteLn(' Здравствуй, я компьютер, а тебя как зовут?');
  Write(' Меня зовут ');
  ReadLn(Text);
  WriteLn(' Очень приятно ', Text, '. Сколько тебе лет?');
  Write(' Мне ');
  ReadLn(Text);
  WriteLn(' Ого! Целых ', Text, '. Да ты совсем взрослый');
  ReadLn
end.