Помогите доделать сортировку

[forsak3n]

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.Ввод');
      writeln('2.Поиск');
       writeln('3.Вывод');
        writeln('4.Выход');
       writeln('Выберите 1 из 4 пунктов');
      readln(result);
    if not(result in menu) then writeln('Неверно введено!!')
  end;

   procedure vvodPlane;
     var i:integer;
     begin
      writeln('Введите пункт назначения');
       readln(a.Destanation);
         writeln('Введите номер рейса');
         readln(a.nomber);
        writeln('Введите тип самолёта');
       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('Пункт назначения  ');
                            writeln(a.Destanation);
                             write('Номер рейса  ');
                            writeln(a.nomber);
                           write('Тип самолёта  ');
                          writeln(a.tip);
                          writeln('******************************************');
                         end;
  end;

  procedure Poisk;
   var t:string;
      ch:aeroflot;
      begin
       seek(p,0);
       writeln('Введите пункт назначения');
        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,'C:\file.dat');
  Rewrite(p);
  close(p);
  Reset(p);
  repeat
  choise:=Getmenu;
  case choise of

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

Вот готовый код,помогите в процедуре вывода(пункт 3 в меню) выводить отсортированное по номеру рейса.



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

Модератор.

[Vanta11a]

Ввести массив записей типа "Aeroflot", размером до 100К (можно больше/меньше, не суть).
Считать в этот массив содержимое файла.
Отсортировать массив.
Вывести массив.

[forsak3n]

А можете пример кода выложить, пожалуйста.

[Vanta11a]

Неа, не могу. А с учетом вот этого (http://programmersforum.ru/showthread.php?t=253200) - и не буду, по крайней мере бесплатно.
Код с вероятностью -> 100% не ваш и Вы в нем даже не разбирались. Ну или переубедите меня, опишите логику работы программы.

[Serge_Bliznykov]

Сообщение от Vanta11a

Неа, не могу. А с учетом вот этого (http://programmersforum.ru/showthread.php?t=253200) - и не буду

кросспост тему я вычистил...

[forsak3n]

Помогите, кто может, пожалуйста.

[Serge_Bliznykov]

Сообщение от forsak3n

Помогите, кто может, пожалуйста.

в пост #2 (с) Vanta11a Вам расписали, что Вам требуется запрограммировать в процедуре vivodPlane, чтобы обеспечить вывод данных в нужном порядке (нужно объявить массив, прочитать файл полностью в этот массив, отсортировать записи в массиве и после этого вывести содержимое массива)

У Вас есть какие-то затруднения?
Какие конкретно?

или Vanta11a прав, и Вы где-то нашли/слямзили программу, не понимая, что там написано и как она работает?!
Тогда, конечно, Вам трудно понять, что же надо делать..
Может быть, в этом случае стоит обратиться во Фриланс?

[forsak3n]

Я расчитываю на людей, которые смогут мне помочь..А доказывать чей код и т.д я не собираюсь..

[Serge_Bliznykov]

Сообщение от forsak3n

Я расчитываю на людей, которые смогут мне помочь..А доказывать чей код и т.д я не собираюсь..

Ладно.
Поясню свою (да и как показыавет опыт, не только свою) позицию на форуме.

Помочь можно человеку, который что-то делает.
Вот, представьте, зовёт Вас приятель помочь траншею выкопать.
Вы пришли на помощь. Он сел в сторонке и говорит, ну, бери лопату и помогай мне - копай траншею.
Вы же резонно спросите - а ты сам копать собираешься?
А он тебе, не твое дело, я расчитваю на людей, которые мне помогать будут, а не на тех, кто всякие вопросы задаёт!
Взялся помогать, так копай!!

Аналогия, надеюсь, ясна?!

[Vanta11a]

Чуток разверну:

Вы пришли на помощь. Явно видно, что половина траншеи явно выкопана трактором. Он сел в сторонке и говорит, ну, бери лопату и помогай мне - копай траншею. Вы спрашиваете - "А чего трактор не выкопал дальше?" и "А ты сам копать собираешься?"
А он тебе, не твое дело, я расчитваю на людей, которые мне помогать будут, а не на тех, кто всякие вопросы задаёт!
Взялся помогать, так копай!!