Описать структуру с именем TRAIN, содержащую следующие поля

[Jameses]

Задача была:

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

Частично сделано, нужно:
1) Все действия забить в процедуры и функции.
2) Все данных должны сохранятся в файл.
3) Подредактировать, чтобы при вводы с клавиатуры данных в файл, записи были размещены в алфавитном порядке по названию пунктов.

const
n=3;
type
train=record
pnkt: string;
nmbr: integer;
hour: integer;
min : integer;
end;
var
a: array[1..n] of train;
i,m: integer;
boo: boolean;
begin
writeln('Введите данные о маршрутах следования поездов');
for i:=1 to n do
begin
with a[i] do
begin
write(' ',i,' Пункт назначения: ');
readln(pnkt);
write(' Номер поезда: ');
readln(nmbr);
repeat
write(' Время отправления (часы и минуты через пробел): ');
readln(hour,min);
until (hour in [1..23])and(min in [1..59]);
end;
end;
write('Введите номер поезда: ');
readln(m);
for i:=1 to n do
with a[i] do
if m=a[i].nmbr then
begin
writeln('Пункт назначения поезда №',a[i].nmbr,': ',a[i].pnkt);
writeln('Время отправления: ',a[i].hour,':',a[i].min);
boo:=true;
end;
if boo=false then writeln('Данных о поезде с таким номером нет');
readln;
end.

[Jameses]

program Tra1n;
uses crt;

const
  n=5;
type
  train=record
         pnkt: string;
         nmbr: integer;
         hour: integer;
         min : integer;
    end;
var
  a: array[1..n] of train;
  i,m: integer;
  boo: boolean;
procedure vvod;
 begin
  clrscr;
  writeln('Введите данные о маршрутах следования поездов');
  for i:=1 to n do
  begin
    with a[i] do
    begin
      write(' ',i,' Пункт назначения: ');
      readln(pnkt);
      write('   Номер поезда: ');
      readln(nmbr);
      repeat
        write('   Время отправления (часы и минуты через пробел): ');
        readln(hour,min);
      until (hour in [1..23])and(min in [0..59]);
     end;
  end;
 end;
procedure vivod ;
begin 
  write('Введите номер поезда: ');
  readln(m);
  for i:=1 to n do
    with a[i] do
      if m=a[i].nmbr then
      begin
        writeln('Пункт назначения поезда №',a[i].nmbr,': ',a[i].pnkt);
        writeln('Время отправления: ',a[i].hour,':',a[i].min);
        boo:=true;
      end;
  if boo=false then writeln('Данных о поезде с таким номером нет');
  readln;
end;
begin
   Assign(f,'poezd.txt');
   Reset(f);
   Rewrite(f);
   vvod;
   vivod;
end.

Я забил в процедуры и функции, но как сделать, чтобы сохраняло все данные в файл и сортировало их по алфавиту?