В пасколе выдает ошибку exitcode = 201

[victor5133]

Помогите, please, найти ошибку в программе. Условия задачи:
на вход подается кол-во учеников а потом их данные Фамилия Имя и три оценки все через пробел. Нужно найти трех учеников средние арефнитические которых наибольшие.
вот то что я написал

Program C4_2010;
var fam:array[1..20] of string; nam:array[1..15] of string;
bal:array[1..5] of integer; i,n,c,k,j,m,p,b:integer; slovo,l:string;
begin
writeln('введите кол-во учеников');
readln(k);
m:=1;
for i:=1 to k do
begin
writeln('введите данные');
readln(slovo);
n:=length(slovo);
j:=1;
l:='-';
while l<>' ' do
begin
l:=copy(slovo,j,1);
j:=j+1;
if l=' ' then break;
fam[m]:=fam[m]+l;
end;
l:='-';
while l<>' ' do
begin
l:=copy(slovo,j,1);
j:=j+1;
if l=' ' then break;
nam[m]:=nam[m]+l;
end;
l:='-';
for j:=j to n do
begin
l:=copy(slovo,j,1);
if l<>' ' then val(l,p,c);
bal[m]:=bal[m]+p;
end;
bal[m]:=trunc(bal[m]/3);
m:=m+1;
end;
k:=0;
for i:=1 to m-1 do
begin
if bal[i]>k then
begin
k:=bal[i];
j:=i;
end;
end;
c:=0;
for i:=1 to n-1 do
begin
if i<>j then begin if (bal[i]>c) and (bal[i]<bal[j]) then
begin
c:=bal[i];
b:=i;
end;
end;
end;
n:=0;
for i:=1 to n-1 do
begin
if (i<>j) and (i<>b) then
begin
if (bal[i]>n) and (bal[i]<bal[j]) and (bal[i]<bal[b]) then
begin
n:=bal[i];
p:=i;
end;
end;
end;
writeln(fam[j]+' '+nam[j]+' ');
write(bal[j]);
writeln(fam[b]+' '+nam[b]+' ');
write(bal[b]);
writeln(fam[p]+' '+nam[p]+' ');
write(bal[p]);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Летучий_СкилетиК]

1. ..мда, а зачем столько массивов, специально для этих целей и создали record.

type
   Bal = record
       Math: byte;
       Hist: byte;
       Russ: byte;
   end;
    Pups = record
        Name : string [20];
        FName: string [20];
        Balls:Bal;
    end;