Создать программу в паскале ввода с клавиатуры анкетных данных (ФИО, дата рождения, место проживания, место работы) и их вывода в текстовый документ. То есть, программа поочередно предлагает ввести данные и после их ввода появляется текстовый файл с введенными данными

Предыдущий
вопрос Следующий
вопрос

program Anketa;

var

 st: String;

 f: Text;

begin

  Assign(f,'anketa.txt');

  Rewrite(f);

  Write('Введите ваши ФИО: ');

  Readln(st);

  Writeln(f, 'ФИО: ',st);

  Write('Введите вашу дату рождения: ');

  Readln(st);

  Writeln(f, 'Дата рождения: ',st);

 Write('Введите ваше место проживания: ');

  Readln(st);

  Writeln(f, 'Адрес проживания: ',st);

Write('Введите ваше метсо работы: ');

  Readln(st);

  Writeln(f, 'Место работы: ',st);

  Close(f);

  Writeln('Спасибо, ваши данные были сохранены успешно!');

 Readln;

end.