Здравствуйте, Evildead!
Решение задачи в приложении.

Приложение:
uses crt;
const n=7; {количество записей по условию}
type Aeroflot=record {тип запись с полями по условию}
nazn:string[15];
numr:integer;
tip:string[15];
end;
var airoport:array[1..n]of Aeroflot;{тип массива по условию}
x:Aeroflot; {переменная буфер для сортировки записей}
tp:string[15];{переменная для запроса типа самолета}
i,j,k:byte; {счетчики}
begin
clrscr;
writeln('Введите данные о ',n,' рейсах:');
for i:=1 to n do
begin
writeln('Рейс ',i);
write('Название пункта назначения: ');readln(airoport[i].nazn);
write('Номер рейса: ');readln(airoport[i].numr);
write('Тип самолета: ');readln(airoport[i].tip);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if airoport[i].nazn>airoport[j].nazn then {сортировка пузырьком по возрастанию поля название(по алфавиту)}
begin
x:=airoport[i];
airoport[i]:=airoport[j];
airoport[j]:=x;
end;
clrscr; {очищаем экран}
writeln('Данные о рейсах по в алфавитном порядке по пункту назначения:');
for i:=1 to n do {выводим записи по алфавиту}
writeln(airoport[i].nazn,' ',airoport[i].numr,' ',airoport[i].tip);
readln;
clrscr; {очищаем экран}
write('Введите тип самолета: '); {запрашиваем тип самолета}
readln(tp);
k:=0;
for i:=1 to n do
if airoport[i].tip=tp then {если поле название совпадает с запросом}
begin
k:=1;{фиксируем}
writeln(airoport[i].nazn,' ',airoport[i].numr);{выводим сведения}
end;
if k=0 then write('Таких рейсов нет!');{если ни одного совпадения}
readln
end.