Паскаль.Написать программу описывающую структуру арофлот...

[Холд]

Вобщем задание:Описать структуру AEROFLOT,содержащую следующие поля:Q название пункта назначения рейса;
-номер рейса;
-тип самолета;
Написать программу с помощью процедур или функций:
-Ввод с клавиатуры данных в фаил,состоящий из элементов типа AEROFLOT;записи должны быть размещены в алфавитном порядке;
-Чтение данных из файла;
-вывод на экран пунктов назначения и номеров рейсов,обслуживаемых самолетом,типо которого введен с клавиатуры;
-если таких рейсов нет,выдать на экран соответствующее сообщение.

program DKLaba8;
 uses crt;
 type polet=record
       bort:string[4];
       reys:string[6];
       Q:string[25];   {punkt nazna4eni9}
       end;
   var f:file of polet;
       elem1,elem2:polet;
       number:integer;
procedure createfile;
 begin
 seek(f,filesize(f));
 writeln('vvedite svedeni9 o polete');
 writeln('For exit-write *');
  while true do
   begin
   writeln('vvedite nomer punkta nazna4eni9 v alfavitnom por9dke');
   readln(elem1.Q);
   if elem1.q='*' then break;
   writeln('vvedite typ samoleta');
   readln(elem1.bort);
   writeln('vvedite nomer reysa');
   readln(elem1.reys);
   write(f,elem1)
   end
  end;
procedure print_file;
   begin
   seek(f,0);
    write('punkt':25,' typ samoleta':4,'reys':6);
     while not eof(f) do
       begin
        read(f,elem1);
        writeln(elem1.q:25, elem1.bort:4,elem1.reys:6);
       end;
     readln;
   end;
procedure search_reys;
 var found:boolean;
     s:string;
   begin
    writeln('vvedite typ samoleta');
    readln(s);
    found:=false;
    seek(f,0);
    while not eof(f) do
      begin
       read(f,elem1);
       if elem1.bort=s then
        begin
           if found=false then
             writeln('punkt nazna4eni9':25,'reys':6);
             found:=true;
             with elem1 do
               writeln(q:25,reys:6);
        end;
      end;
      if found=false then writeln('dl9 dannogo samoleta reysov net');
    end;



begin
assign(f,'polet.dat');
{$i-}
reset(f);
{$i+}
 if IOResult=0 then
  writeln('dobavlenie zapisey v fail')
   else
     begin
     rewrite(f);
     writeln('Zapisi v novuy fail');
     end;
   readln;
   while true do
   begin
   clrscr;
 writeln('1-sozdanie faila');
 writeln('2-4tenie dannux faila');
 writeln('3-Vuvod na ekran p.nazna4enia i nomerov reysov dl9 dannogo samoleta');
 writeln('4-exit');
 writeln('------------------------------------------------------------------');
 writeln('vvedite nomer menu');
  readln(number);
   case number of
        1:createfile;
        2:print_file;
        3:search_reys;
        4:exit;
end;
end;
end.

3й пункт не работает.и я не знаю,в чем ошибка,подскажите пожалуйста!

[Stilet]

Запустил твой код
Вот результат:

Zapisi v novuy fail

1-sozdanie faila
2-4tenie dannux faila
3-Vuvod na ekran p.nazna4enia i nomerov reysov dl9 dannogo samoleta
4-exit
------------------------------------------------------------------
vvedite nomer menu
1
vvedite svedeni9 o polete
For exit-write *
vvedite nomer punkta nazna4eni9 v alfavitnom por9dke
1
vvedite typ samoleta
dot
vvedite nomer reysa
12
vvedite nomer punkta nazna4eni9 v alfavitnom por9dke
2
vvedite typ samoleta
dop
vvedite nomer reysa
23
vvedite nomer punkta nazna4eni9 v alfavitnom por9dke
3
vvedite typ samoleta
dot
vvedite nomer reysa
33
vvedite nomer punkta nazna4eni9 v alfavitnom por9dke
*
1-sozdanie faila
2-4tenie dannux faila
3-Vuvod na ekran p.nazna4enia i nomerov reysov dl9 dannogo samoleta
4-exit
------------------------------------------------------------------
vvedite nomer menu
3
vvedite typ samoleta
dot
punkt nazna4eni9 reys
1 12
3 33
1-sozdanie faila
2-4tenie dannux faila
3-Vuvod na ekran p.nazna4enia i nomerov reysov dl9 dannogo samoleta
4-exit
------------------------------------------------------------------
vvedite nomer menu

Вроде правильно вывел... Некрасиво но правильно.

[Холд]

Черт.Видимо вот в чем ошибка.Там надо не нмер пункта назначения, а название(
Но у меня,если вводить чуть другие данные не выводит.Посмотрю через АБС Паскаль