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

Type
        T_Time=record
              Hour:0..23;
              Min:0..59;
                  end;
        tzap=record       {Описание типа для одной записи списка}
              nom:string[5];
              p1,p2:string[15];
              day:1..7;
              time:T_Time;
              price:real;
              end;
Var     Spis:array[1..100]of tzap; {Описание списка}
        N,i:byte;
        Isk_nom:string[5];
Begin
        Write(' Введите число записей в списке N = ');
        Readln(N);
        Writeln('Введите список по полям - каждое поле с новой строки');
        For i:=1 to N do
        With Spis[i] do
          begin
               Write(' Номер очередного рейса - 5 символов ');
               Readln(nom);
               Write(' Пункт отправления - 15 символов ');
               Readln(p1);
               Write(' Пункт назначения - 15 символов ');
               Readln(p2);
               Write(' День недели - от 1 до 7 ');
               Readln(day);
               Write(' Время отправления - часы (от 0 до 23) и
                       минуты (от        0 до 59), через пробел ');
               Readln(time.hour,time.min);
               Write(' Цена билета = ');
               Readln(price);
        end;
        writeln(' введите искомый номер рейса - 5 символов ');
        Readln(Isk_nom);
        {Oрганизация поиска заданного рейса в массиве записей Spis}
        for i:=1 to N do
               with Spis[i] do
               if nom = Isk_nom then
               begin