Матрица

[Nastenabird]

Дана матрица А[6*4] оценок успеваемости 6ти студентов по 4м дисциплинам
1. Заполнить элементы матрицы по строкам и вывести матрицу на экран монитора.
2. определить средний балл для каждого студента по каждой строке.
3. определить общее число двоек и общий средний балл для всех студентов по всем предметам.
4. определить строки, в которых число двоек больше трех и обнулить их элементы (представить к отчислению студентов). (создать новый массив)
Смогла сделать только пункты 1 и 3, но и те работают не правильно... ПОМОГИТЕ!!!!!

 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.