uses Исполнители;

begin
  Файл.ОткрытьНаЗапись('текст.txt');
  Файл.Записать('Информатика');
  Файл.Записать('Математика');
  Файл.Записать('Русский');
  Файл.Записать('Физика');
  Файл.Записать('Русский');
  Файл.Записать('Информатика');
  Файл.Закрыть;
  Файл.ВывестиСодержимое('текст.txt');
end.  
  