Рассписание самолетов в Delphi

[Santutso]

Необходимо создать программу которая бы выводила нужный самолет по вводимым данным. При этом, что бы эту базу можно было бы обновлять.
Вот все что смог сделать дальше никак...

program Raspisanie;
{$APPTYPE CONSOLE}
uses
  SysUtils;

type
   fly=record
   Tips:string[20]; {Тип самолета}
   marsh:string[30]; {Маршрут}
   nre:string[45];   {Номер рейса}
   stm:string[20]; {стоимость билета}
   prot:string[20]; {Протяжонность линии}
end;
   mas=array[1..45] of fly;
var
   s1,s2,s3,s4,s5:fly;

            samolet: mas;

   n,i:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  s1.nre:='111';
  s1.Tips:='TU';
  s2.nre:='112';
  s2.Tips:='BOING';
  s3.nre:='113';
  s3.Tips:='CONCORD';
  s4.nre:='114';
  s4.Tips:='AEROBUS';
  s5.nre:='115';
  s5.Tips:='SU';
  samolet[1].marsh:='Moskva-Habarovsk';
  samolet[2].marsh:='Banya-Karaganda';
  samolet[3].marsh:='samali-london';
  samolet[4].marsh:='bagdad-london';
  samolet[5].marsh:='Lion-Gla';
  begin
 Writeln('Vvedite kolichestvo');
Readln(n);
For i:=1+5 to n+5 do
   With samolet[i] do
       Begin
            Writeln('Vvedite marshrut, protyajennost puti, stoimost, tip samoleta');
            Readln(marsh,prot,stm, tips);

          end;
        end;
end.

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

[JUDAS]

Santutso, Вам в Делфи нужно или в консольном режиме, так, как Вы пишете ?

[Santutso]

В консольном режиме