Доделать методом выборки программу на паскаль.Не могу понять как сделать выборку над временем.

Ввести и сохранить в файл данные следующей структуры: № рейса, направление движения и время отправления автобуса, стоимость билета, ФИО водителя. Организовать просмотр исходных данных и вывести список автобусов, отсортированный по времени отправления автобуса (по возрастанию метод выборки записи с максимальным значением) с указанием № рейса, направления движения, времени отправления.

Type reisov=record

  nr:string[30];

   vr: string[30];

   nap: string[30];

   sto: string[30];

   FIO:string[30];

   End;

Var f:file of reisov;

  t:reisov;

  i,n:integer;

  s:string;

Begin

  write('Vedite kol-vo reisov ');

  readln(n);

  Assign(f,'paspisanie.a.txt');Rewrite(f);

  For i:=1 to n do

   Begin

  writeln('Vvedite info o ',i,'-om reise');

   write('Vvedite nomer reisa: ');readln(t.nr);

   write('Vvedite vremia: ');readln(t.vr);

   write('Vvedite napravlenie: ');readln(t.nap);

   write('Vvedite stoimost: ');readln(t.sto);

   write('Vvedite F.I.O.Voditel: ');readln(t.FIO);

   write(f,t);

   End;

  Reset(f);

  writeln('-----------------------------------------------------------');

  writeln('  Nomer reisa| ','Vremia otpravlenia | ','Napravlenie | ');

  writeln('-----------------------------------------------------------');

  While not Eof(f) do

   Begin

   read(f,t);

   writeln(t.nr:9,'|':6,t.vr:7,'|':14,t.nap:7,'|':6);

   End;

  write('Vvedite nomer reisa kotori vam nuzhen');

  readln(s);

  Reset(f);

  While not Eof(f) do

   Begin

   read(f,t);

   if t.nr=s then writeln(t.nr:9,'|':6,t.vr:7,'|':14,t.nap:7,'|':6);

   End;

  Close(f);

  readln;

End.