Вывести в алфавитном порядке фамилии и заплаты тех, чьи суммы выше заданной

uses crt;
type rab=record//тип-запись с двумя полями
         fam:string[20];
         zrp:longint;
         end;
var inp,out:text;
    z:array[1..100] of rab;//массив записей для сортировки по алфавиту
    x:rab;//переменная-буфер для сортировки
    w:longint;//задаваемая з/п
    n,i,j,t,c:integer;
    s:string;//строка для чтения 
begin
clrscr;
assign(inp,'input.txt');
reset(inp);
assign(out,'output.txt');
rewrite(out);
read(inp,n);//читем первое число
readln(inp,s);//пропускаем эту строку
for i:=1 to n do//читаем все остальное
 begin
  readln(inp,z[i].fam);//читаем фамилию
  readln(inp,s);//читаем строку с зарплатой
  val(s,t,c);//преобразуем ее в число
  z[i].zrp:=t;//в массив
 end;
close(inp);
for i:=1 to n-1 do
for j:=i+1 to n do
if z[i].fam>z[j].fam then//сортируем массив по увеличению поля фамилия-по алфавиту
 begin
  x:=z[i];
  z[i]:=z[j];
  z[j]:=x;
 end;
write('Введите критерий зарплаты для поиска w=');
readln(w);
for i:=1 to n do
if z[i].zrp>w then//если з/п больше
 begin
  writeln(out,z[i].fam);//записываем оба поля в файл
  writeln(out,z[i].zrp);
 end;
close(out);
write('Файл переписан!');
readln
end.