Определить строки матрицы, в которых число двоек больше трех и обнулить их элементы

var a:array[1..6,1..4] of integer;
    i,j,k:integer; sr1,sr2,sr3,sr4,sr5,sr6,sr0:real;
    k1,k2,k3,k4,k5,k6:integer;
begin
   sr1:=0; sr2:=0; sr3:=0;
   sr4:=0; sr5:=0; sr6:=0; sr0:=0;
   k1:=0; k2:=0; k3:=0;
   k4:=0; k5:=0; k6:=0;
   writeln('Введите оценки 6-ти студентов');
   for i:=1 to 6 do
      for j:=1 to 4 do
         readln(a[i,j]);
   writeln('Оценки студентов');
   for i:=1 to 6 do
      begin
         for j:=1 to 4 do
            write('':3,a[i,j]);
            writeln;
      end;
   writeln('Средание баллы каждого студента');
   for i:=1 to 1 do
      for j:=1 to 4 do
         begin
            sr1:=sr1+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k1:=k1+1;
               end;
         end;
         sr1:=sr1/4;
         writeln('1-й студент ',sr1);
   for i:=2 to 2 do
      for j:=1 to 4 do
         begin
            sr2:=sr2+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k2:=k2+1;
               end;
         end;
         sr2:=sr2/4;
         writeln('2-й студент ',sr2);
   for i:=3 to 3 do
      for j:=1 to 4 do
         begin
            sr3:=sr3+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k3:=k3+1;
               end;
         end;
         sr3:=sr3/4;
         writeln('3-й студент ',sr3);
   for i:=4 to 4 do
      for j:=1 to 4 do
         begin
            sr4:=sr4+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k4:=k4+1;
               end;
         end;
         sr4:=sr4/4;
         writeln('4-й студент ',sr4);
   for i:=5 to 5 do
      for j:=1 to 4 do
         begin
            sr5:=sr5+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k5:=k5+1;
               end;
         end;
         sr5:=sr5/4;
         writeln('5-й студент ',sr5);
   for i:=6 to 6 do
      for j:=1 to 4 do
         begin
            sr6:=sr6+a[i,j];
            if a[i,j]=2 then
               begin
                  k:=k+1;
                  k6:=k6+1;
               end;
         end;
         sr6:=sr6/4;
         writeln('6-й студент ',sr6);
   writeln('Общее число двоек = ',k);
   sr0:=(sr1+sr2+sr3+sr4+sr4+sr5+sr6)/6;
   writeln('Общий средний балл всех студентов = ',sr0);
   for i:=1 to 1 do
      for j:=1 to 4 do
         if k1>3 then a[i,j]:=0;
   for i:=2 to 2 do
      for j:=1 to 4 do
         if k2>3 then a[i,j]:=0;
   for i:=3 to 3 do
      for j:=1 to 4 do
         if k3>3 then a[i,j]:=0;
   for i:=4 to 4 do
      for j:=1 to 4 do
         if k4>3 then a[i,j]:=0;
   for i:=5 to 5 do
      for j:=1 to 4 do
         if k5>3 then a[i,j]:=0;
   for i:=6 to 6 do
      for j:=1 to 4 do
         if k6>3 then a[i,j]:=0;
   writeln('Итоги по отчисленным');
   for i:=1 to 6 do
      begin
         for j:=1 to 4 do
            write('':3,a[i,j]);
            writeln;
      end;
end.