Описать запись с именем AEROFLOT

uses crt;
const n=7;
type aeroflot=record
              naz:string[20];
              rjs:string[20];
              nom:word;
              typ:string[20];
              end;
var a:array[1..7] of aeroflot;
    x:aeroflot;
    pun:string[20];
    i,j,f:byte;
begin
clrscr;
writeln('Введите даные о ',n,' пунктах:');
for i:=1 to n do
 begin
  writeln('Пункт ',i);
  write(' Название пункта: ');readln(a[i].naz);
  write(' Название рейса: ');readln(a[i].rjs);
  write(' Номер рейса: ');readln(a[i].nom);
  write(' Тип самолта: ');readln(a[i].typ);
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].nom>a[j].nom then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Список рейсов по номерам:':40);
writeln('---------------------------------------------------');
writeln('|    Пункт    |   Рейс   |  Номер  | Тип самолета |');
writeln('---------------------------------------------------');
for i:=1 to n do
 begin
  gotoXY(1,whereY);write('| ',a[i].naz);
  gotoXY(15,whereY);write('| ',a[i].rjs);
  gotoXY(26,whereY);write('| ',a[i].nom);
  gotoXY(36,whereY);write('| ',a[i].typ);
  gotoXY(51,whereY);writeln('|');
 end;
writeln('---------------------------------------------------');
write('Введите пункт назначения:');
readln(pun);
f:=0;
for i:=1 to n do
if a[i].naz=pun then
 begin
  writeln(a[i].nom,'  ',a[i].typ);
  f:=1;
 end;
if f=0 then write('Такого пункта нет!');
readln
end.