Записи, (создание, удаление, сортировка) Опции

[pre-dawn-haze]

Собственно, такое задание

Составить программу, которая содержит текущую информацию о заявках на авиабилеты.
Каждая заявка содержит:
o Пункт назначения;
o Номер рейса;
o Фамилию и инициалы пассажира;
o Желаемую дату вылета.
Программа должна обеспечивать:
o Хранение всех заявок в виде списка;
o добавление заявок в список;
o Удаление заявок;
o Вывод заявок по заданному номеру рейса и дате вылета;
o Вывод всех заявок.
--------------------------------

program avia;
const kol=10;
type z=record
     mesto: string;
     fio: string;
     name: string;
     number: integer;
          date: record
                day:1..31;
                month: 1..12;
                year: integer;
          end;
end;

var zap: array [byte] of z;
    a, b, c, d, r: array [1..10] of string;
    i, k, n, h: integer;
    zn: string;

procedure generate;
var m:byte;
begin
a[1]:='Андрей';
a[2]:='Иван';
a[3]:='Георгий';
a[4]:='Виктор';
a[5]:='Степан';
a[6]:='Владимир';
a[7]:='Михаил';
a[8]:='Максим';
a[9]:='Василий';
a[10]:='Сергей';
b[1]:='Иванов';
b[2]:='Петров';
b[3]:='Сидоров';
b[4]:='Ушаков';
b[5]:='Крылов';
b[6]:='Соколов';
b[7]:='Соловьев';
b[8]:='Зайцев';
b[9]:='Смирнов';
b[10]:='Кузнецов';
c[1]:='Ирина';
c[2]:='Полина';
c[3]:='Ангелина';
c[4]:='Екатерина';
c[5]:='Татьяна';
c[6]:='Анна';
c[7]:='Ксения';
c[8]:='Любовь';
c[9]:='Надежда';
c[10]:='Светлана';
d[1]:='Иванова';
d[2]:='Петрова';
d[3]:='Сидорова';
d[4]:='Комарова';
d[5]:='Крылова';
d[6]:='Соколова';
d[7]:='Соловьева';
d[8]:='Зайцева';
d[9]:='Смирнова';
d[10]:='Кузнецова';
r[1]:='Москва';
r[2]:='Воронеж';
r[3]:='Ростов';
r[4]:='Россошь';
r[5]:='Уральск';
r[6]:='Батайск';
r[7]:='Киров';
r[8]:='Липецк';
r[9]:='Владивосток';
r[10]:='Омск';
for i:=1 to kol do
    begin
    h:=random(2);
                 with zap[i] do
                 begin
                      begin
                           if h=0 then
                              begin
                              fio:=b[random(8)+1];
                              name:=a[random(8)+1];
                              end
                                                   else
                                                   begin
                                                   fio:=d[random(8)+1];
                                                   name:=c[random(8)+1];
                                                   end;
                      end;
    
                 date.day:=random(30)+1;
                 date.month:=random(12)+1;
                 date.year:=(2)+2010;
                 number:=random(5)+1001;
                 mesto:=r[random(8)+1];
                 
    end;
    end;
end;
begin
generate;
writeln('  №     Имя     Фамилия   Номер рейса   Пункт назначения    День  Месяц   Год');
for i:=1 to kol do
    with zap[i] do
        writeln(i:3,name:10,' ',fio:10,' ',number:8,' ',mesto:20,'     ',date.day:3,'  ' , date.month:4, date.year:10);

end.

заполнить могу, а как организовать обработку не представляю

Сообщение отредактировано: pre-dawn-haze - 6.02.2012 23:07