Не знаю как решать дальше

Program Vedomost;
Uses crt;
const n=5;
var a:array[1..n,1..3] of string;
i,x,cod,k:integer;
begin
clrscr;
writeln;
writeln('Постановка задачи');
writeln('Программа которая формирует двумерный массив');
writeln('(фамилия, специальность и зарплата работников),выполняет посик по');
writeln('критерию наибольшей зарплаты, зарплаты выше средней и выводит');
writeln('на экран сообщение о результатах поиска работников с наибольшей');
writeln('зарплатой и выше средней');
writeln;
writeln('Чтобы продолжить жмите Enter..');
readln;
clrscr;
    Writeln('Ввод данных');
    For i:=1 to n do
    Begin
    write('Введите фамилию',i,' работника');
    readln(a[i,1]);
    writeln('Введите специальность',i,' работника');
    readln(a[i,2]);
    repeat
    write('Введите зарплату',i,' работника');
    Readln(a[i,3]);
    val(a[i,3],x,cod);
    if (cod<>0) or (x<=0) then
    begin
    writeln('Ошибка в записи зарплаты');
    writeln('Повторите ввод...');
    end;
    Until (cod=0) and (x>0);
    if x>30000 then k:=k+1;
    end;
    writeln;
    writeln('Для продолжения нажмите Enter...');
    readln;
    clrscr;
    Writeln('----------Список работников----------');
    Writeln('------------------------------------');
    writeln('Фамилия  | Специальность  |  Зарплата');
    for i:=1 to n do
    writeln(a[i,1]:2,'|':6,a[i,2]:10,'|':7,a[i,3]:5);
    writeln('---------------------------------------');
    writeln;
    writeln('Чтобы продолжить жмите Enter...');
    readln;
    clrscr;

type rab=record
             fam,src:string[20];
             zrp:integer;
             end;

var z:array[1..100] of rab;

max:=0;sr:=0;
for i:=1 to n do
 begin
  val(a[i,3],x,cod);
  sr:=sr+x;
  if x>max then max:=x;
 end;

for i:=1 to n do
 begin
  val(a[i,3],x,cod);
  if x=max then (выводим) 
 end;

for i:=1 to n do
 begin
  val(a[i,3],x,cod);
  if x>sr/n then (выводим) 
 end;