Описать запись с именем "Route"

var a:array [1..8] of route;
i,n,x:integer;
S:string;
f:text;
 
Procedure Swap(x,y:route);
var t:route;
    begin
     t:=x;
     x:=y;
     y:=t;
    end;
 
begin
   clrscr;
   Write('Введите название файла для записи: ');readln(s);
   s:=s+'.txt';
   assign(f,s);
   rewrite(f);
   Write('Кол-во маршрутов = ');readln(n);
   For i:=1 to n do
   with a[i] do
     begin
     Writeln(f,i,'.',#13,#10);
     Write('Название ',i,'-го начального маршрута: ');readln(NachaloM); Writeln(f,NachaloM,#13,#10);
     Write('Название конечного маршрута: ');readln(KonecM); Writeln(f,KonecM,#13,#10);
     Write('Номер маршрута: ');readln(NomerM); Writeln(f,NomerM,#13,#10);
     writeln;writeln;
     end;
   Write('Укажите номер маршрута для вывода информации: ');readln(x);
   For i:=1 to n do
   with a[i] do
   if NomerM=x then
        begin
        writeln('Начало маршрута: ',NachaloM);
        writeln('Конец маршрута: ',KonecM);
        writeln('Номер маршрута: ',NomerM);
        end;
   close(f);
   readkey;
end.

uses crt;
const n=8;
type route=record
           NachaloM:string[20];
           KonecM:string[20];
           NomerM:integer;
           end;
var a:array [1..n] of route;
    i,j:integer;
 
Procedure Swap(var x,y:route);
var t:route;
begin
t:=x;
x:=y;
y:=t;
end;
 
begin
clrscr;
writeln('Введите данные о маршрутах:');
For i:=1 to n do
with a[i] do
 begin
  Write('Номер ',i,' маршрута: ');readln(NomerM);
  Write('Начальный пункт: ');readln(NachaloM);
  Write('Конечный пункт: ');readln(KonecM);
  writeln;
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].NomerM>a[j].NomerM then Swap(a[i],a[j]);
writeln('Маршруты по возрастанию номеров:');
writeln('---------------------------------------------');
writeln('| Номер | Начальный пункт | Конечный пункт  |');
writeln('---------------------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('|',NomerM:6);
  gotoXY(9,whereY);write('| ',NachaloM);
  gotoXY(27,whereY);write('| ',KonecM);
  gotoXY(45,whereY);writeln('|');
 end;
writeln('---------------------------------------------');
end.