Определить средний балл для каждого студента

Program Lab3;
uses crt;
var A:array [1..6,1..4] of integer;
i,j,S:integer; sr1,sr2,sum,k:real;
begin
writeln ('Vvedite massiv');
for i:=1 to 6 do
for j:=1 to 4 do
read (A[i,j]);
writeln (' ',A[i,j]);
for i:=1 to 6 do begin
sum:= sum+A[i,j];
sr2:=sum/24;
writeln('Sredniy ball',sr2:1:1);
end;
for i:=1 to 6 do begin
S[i]:= S[i]+A[i,j];
sr1:=S[i]/4;
writeln('Sredniy ball',sr1:1:1);
end;
k:=0
for i:=1 to 6 do
for j:=1 to 4 do begin
if A[i,j]=2 then k:=k+1;
writeln ('Kolichestvo dvoek',k);
end;
end.

Program Lab3;
uses crt;
const m=6;
      n=4;
var a:array [1..m,1..n] of integer;
    i,j,k,ok:integer;
    sr,osr:real;
begin
writeln ('Введите оценки от 2 до 5:');
for i:=1 to m do
 begin
  writeln ('Введите 4 оценки студента ',i,' от 2 до 5:');
  for j:=1 to n do
  repeat
   read (a[i,j]);
  until a[i,j] in [2..5];
 end;
clrscr;
writeln('Матрица оценок:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
writeln('Среднний балл и количество двоек по каждому студенту:');
osr:=0;ok:=0;
for i:=1 to m do
 begin
  sr:=0;k:=0;
  for j:=1 to n do
   begin
    sr:=sr+a[i,j];
    if a[i,j]=2 then k:=k+1;
   end;
  sr:=sr/m;
  osr:=osr+sr;
  ok:=ok+k;
  writeln(i,' ср.балл=',sr:0:1,'  кол. 2=',k);
 end;
osr:=osr/m;
writeln;
writeln('Общий ср.балл=',osr:0:1,'  общее кол. 2=',ok)
end.