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

                       writeln(' Рейс найден');
             writeln(nom,' ',p1,' ',p2,' ',day,' ',time.hour,':',time.min,' ',price);
                readkey;
                halt;
                end;
                       writeln(' Рейс не найден');
                       readkey;
     End.
Примечание: При вводе символьной информации необходимо учитывать, что
пробел также является символом.

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

                                     Вариант 1
   1. Дан список, содержащий не менее 10 записей, каждая из которых имеет
структуру:
      Шифр книги Ф.И.О. авторов Название            Год
      тип строка     тип строка     тип строка     издания
      5 символов     20 символов 15 символов        целое
   2. Разработать программу, выполняющую следующие функции:
    - ввод данного списка в массив записей;
    - вывод массива записей на экран;
    - поиск книг, изданных в 1960 году и шифром, начинающимся с буквы "А"
с выводом найденных записей на экран.

                                    Вариант 2
  1. Дан список, содержащий не менее 10 записей, каждая из которых имеет
      структуру:
   Шифр товара Наименование Цена (в руб.) Количество
   тип строка       тип строка вещественное экземпляров
   5 символов        20 символов число        целое число
  2. Разработать программу, выполняющую следующие функции:
   - ввод данного списка в массив записей;
   - вывод массива записей на экран;
   - поиск товаров, имеющих цену меньше 20000 руб. и количеством
     экземпляров больше 100 с выводом найденных записей на экран.

                                  Вариант 3
  1. Дан список, содержащий не менее 10 записей, каждая из которых имеет
      структуру:
   Номер рейса Пункт отправления Пункт назначения Дни
   тип строка       тип строка     тип строка         полетов
   5 символов      10 символов      10 символов       от 1 до 7