задача на списки

[Liubashka]

у меня есть задача в которой нужно описать структуру с именем Aeroflot,содержащую след поля:название пункта назначения рейса,номер рейса,тип самолета. так же нужно вывести на экран номера рейсов и типов самолетов,вылетающих в пункт назначения,названия которых совпало с названием введенных с клавиатуры. вот эта задача :

uses
  SysUtils;

const  menu=[1..4];
type
  Aeroflot=record
   Destanation:String[100];
     nomber:integer;
    tip:char;
 end;
 TAFILE = file of aeroflot;
 var
     a:Aeroflot;
     choise:integer;
     i:integer;
     p:tafile;
  function Getmenu:integer;
    begin
     writeln('1.vvod');
      writeln('2.poisk');
       writeln('3.vivod');
        writeln('4.vihod');
       writeln('Vibetite 1 iz 4 punctov');
      readln(result);
    if not(result in menu) then writeln('Neverno vvedeno')
  end;

   procedure vvodPlane;
     var i:integer;
     begin
      writeln('vvedite Destanation');
       readln(a.Destanation);
         writeln('vvedite nomber');
         readln(a.nomber);
        writeln('vvedite tip');
       readln(a.tip);
      write(p,a);
     end;

  procedure vivodPlane;
  var i:integer;
  begin
  seek(p,0);
     while not eof(p) do begin
                         read(p,a);
                         writeln('******************************************');
                          write('Destanation  ');
                            writeln(a.Destanation);
                             write('nomber  ');
                            writeln(a.nomber);
                           write('tip  ');
                          writeln(a.tip);
                         end;
  end;

  procedure Poisk;
   var t:string;
      ch:aeroflot;
      begin
       seek(p,0);
       writeln('vvedite Destanation');
        readln(t);
         while not eof(p) do begin
                              read(p,ch);
                               if t=ch.Destanation then writeln(ch.tip, ch.nomber);
                             end;
      end;

begin
 Assignfile(p,'X:\file.dat');
  Rewrite(p);
  close(p);
  Reset(p);

  { TODO -oUser -cConsole Main : Insert code here }

  repeat
  choise:=Getmenu;
  case choise of

  1:vvodPlane();
  2: poisk();
  3:vivodPlane();
  4:halt;
  end;
  until false;
  readln;
end.

Теперь надо переделать эту же задачу используя список,помогите пожалуйста сделать это...




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.