не получается написать программу. помогите пожалик.

у меня не получается вывести нужные фамилии. посмотрите и исправьте пожалуйста. заранее спасибо

текст программы:

Program Fio_Pupil;
uses crt;
const n=5;
var a:array [1..n] of string;
b:array [1..n] of integer;
k:array [1..n,1..2] of real;
x:array [1..n] of integer;
i,j,l,t,d,m,min,max,max2,p:integer;
S,R,h:real;
procedure windows (color: byte; x1, y1, x2, y2: integer);
begin
textbackground(black);
window (x1+1,y1+1,x2+1,y2+1);
clrscr;
textbackground (color);
window (x1,y1,x2,y2);
clrscr;
end;
begin
textbackground(white);
clrscr;
windows (cyan,2,6,23,17);
textcolor (red);
gotoxy(1,1);
for i:=2 to 21 do
begin
gotoxy (i,1); write (#205);
gotoxy (i,12); write (#205);
end;
for i:=2 to 11 do
begin
gotoxy (1,i); write (#186);
gotoxy (22,i); write (#186);
end;
gotoxy(6,1);
write;
window (3,7,22,15);
textcolor (yellow);
writeln;
writeln;
writeln;
writeln;
textcolor(red+blink);
write (' Нажмите ENTER...');
readln;
windows (cyan,25,6,60,20);
textcolor (red);
gotoxy(1,1);
for i:=2 to 35 do
begin
gotoxy (i,1); write (#205);
gotoxy (i,15); write (#205);
end;
for i:=2 to 14 do
begin
gotoxy (1,i); write (#186);
gotoxy (36,i); write (#186);
end;
gotoxy(9,1);
write(' Постановка задачи ');
window (26,7,59,24);
textcolor (yellow);
write('Ведомость на зарплату представлена как две таблицы');
write('Одна содержит фамилии работников цеха, а вторая - их зарплату за текущий месяц.');
write('Найдите фамилию работника,');
write('зарплата которого наименее отклонятеся от средней зарплаты всех работников за текущий месяц.');
write('Найдите фамилии дфух работников с наибольшей зарплатой.');
writeln('Удалите из ведемости на зарплату сведения о работнике, зарплата которого минимальна.');
textcolor(red+blink);
write('Для продолжения нажмите Enter...');
readln;
textbackground(white);
window(1,1,80,25);
clrscr;
windows (cyan,25,5,55,18);
textcolor (red);
gotoxy(1,1);
for i:=2 to 30 do
begin
gotoxy (i,1); write (#205);
gotoxy (i,14); write (#205);
end;
for i:=2 to 13 do
begin
gotoxy (1,i); write (#186);
gotoxy (31,i); write (#186);
end;
gotoxy(9,1);
write(' Ввод данных ');
window(26,6,54,17);
textcolor(yellow);
writeln;
S:=0;
clrscr;
For i:=1 to n do
begin
write('Введите фамилию ',i,' работника цеха: ');
Readln(a);
end;
for i:=1 to n do
begin
repeat
write('Введите зарплату ',i,' работника цеха: ');
Readln(b);
if b<=0 then
begin
writeln('Ошибка в записи зарплаты!!!');
writeln('Повторите ввод...');
end;
until (b>0);
end;
writeln;
textcolor(red);
writeln('Для продолжения нажмите Enter...');
Readln;
Clrscr;
textcolor(yellow);
writeln('|---------------|');
writeln('| Фамилия |');
writeln('|---------------|');
For i:=1 to n do
writeln('|',a:10,' |');
writeln('|---------------|');
textcolor(red);
writeln('Для продолжения нажмите Enter...');
readln;
clrscr;
textcolor(yellow);
writeln('|---------------|');
writeln('| Зарплата |');
writeln('|---------------|');
for i:=1 to n do
writeln('|',b:10,' |');
writeln('|---------------|');
textcolor(red);
writeln('Для продолжения нажмите Enter...');
Readln;
Clrscr;
textcolor(yellow);
for i:=1 to n do
begin
S:=s+b;
end;
S:=S/5;
write('Средняя зарплата за текущий месяц состовляет ');
write(S:2:3);
writeln;
textcolor(red);
writeln;
writeln('Для продолжения нажмите Enter...');
readln;
clrscr;
textcolor(yellow);
For i:=1 to n do
begin
k[i,1]:=abs(b-S);
k[i,2]:=i;
h:=k[1,1];
l:=1;
for i:=1 to n do
begin
if h>k[i,1]
then begin
h:=k[i,1];
l:=i;
end; end; end;
write('Работник зарплата которого наименее отклоняется от средней');
write