Паскаль вывести средний балл

Программа написана, но средний балл правильно не считается, как исправить?

Program test_2;

Type wed = record

n : integer ;

fio : string[3] ;

bal : array [1..5] of integer {Поле bal - массив из 3 оценок }

end;

Var spisok : wed ;

i, j, kol, s : integer;

sr : real;

Begin

kol:=0;

With spisok do

For i:=1 to 3 do

begin

n:=i;

Writeln(' Введите ФИО N ', i );

Readln (fio);

s:=0;

For j:= 1 to 1 do

begin

write ( 'введите оценку по Математике: ' );

readln ( bal [j] );

write ( 'введите оценку по Русскому языку: ' );

readln ( bal [j] );

write ( 'введите оценку по Информатике: ' );

readln ( bal [j] );

write ( 'введите оценку по Физ-ре: ' );

readln ( bal [j] );

s := s+ bal [j];

end;

if s=20 then kol:=kol+1;

sr := s/4;

writeln ( fio, ' средний бал =', sr:4:1);

end;

writeln ( ' Количество отличников = ', kol );

readln;

end.