Алгоритмические языки и программирование. Аксенова Л.И - 13 стр.

     Writeln(F_out, ′ Номер Фамилия Имя Отчество Год рождения′);
             For i := 1 To Kol_Zap Do
               With Spisok[i] do
                   Writeln (F_out, Nom:6, FIO, Year:6); { Вывод записи: для
     текстового файла необходимо указывать каждое выводимое поле записи}
             Close (F_input); Close(F_out); { Закрытие файлов}
       End.

                          Порядок выполнения работы

1. Получить вариант задания у преподавателя.
2. Определить состав и структуру входной и выходной информации.
3. Написать и отладить программу, продемонстрировать её              работу
   преподавателю.
4. Оформить и сдать отчет.

                              Типовое задание

      Создать текстовый файл, состоящий из записей, имеющих заданную
  структуру (см. ваш вариант).
      Написать программу, решающую следующие задачи:
   1) Занесение записей из текстового файла в массив записей с
  одновременным определение числа записей во входном файле.
   2) Вывод на экран полученного массива.
   3) Поиск в массиве и вывод на экран записей по заданному полю.
   4) Удаление из массива записей в соответствии с заданием.
   5) Вывод на экран оставшегося массива.
   6) Упорядочение массива по заданному полю.
   7) Вывод упорядоченного массива на экран и в новый текстовый файл.
  Все выводимые на экран и в файл результаты должны быть снабжены
  заголовками, поясняющими этот результат и оформлены в виде таблиц.



                             Варианты заданий


                                     13