Что не так?Выводит не то, что нужно - Pascal ABC

Формулировка задачи:

Имеются данные о сотрудниках предприятия: фамилия, стаж, зарплата. Составить программу, которая определит максимальную зарплату для сотрудников с фамилией на заданную букву. Вот код, но выводит просто максимальную зарплату из всех введенных, а надо только максимальную из определенных фамилий.

Program N1;
uses CRT;
Type anketa=record
fam:string;
st,zp:real;
end;
var A:array[1..10] of anketa;
i,n,k:integer;
max:real;
b:string;
Begin
ClrScr;
write('Введите кол-во сотрудников:');
readln(n);
for i:=1 to n do
begin  
writeln('Введите данные о ',I,'-м сотруднике: ');
with a[i] do 
  begin
write('Фамилия:');
readln(Fam);
write('Стаж:');
readln(st);
write('Зарплата: ');
readln(zp);
  end
end;
writeln('Введите заданную букву');
readln(b);
k:=0;
for i:=1 to n do
  with a[i] do
   begin
 if fam[1]=b then k:=k+1;
 begin
  writeln(Fam,' ':10,zp:5:2); 
 end
   end;
 for i:=1 to n do
 with a[i] do
 begin
 if zp>max then
  max:=zp;
 end;                      
writeln ('Максимальная зп: ',max:5:2);
readln;
end.

Решение задачи: «Что не так?Выводит не то, что нужно»

textual
                            Листинг программы 
                        
                            var imax:integer;