Как обойтись без дополнительного массива в приведенном коде

Program kursovoj;
Var
  a : array[1..4,1..10] of Integer;
  i,j,n,oc,hor,pl  : Integer;
  h,sr: Real;
  hor_pl : array[1..10] of Integer;
Begin
  randomize;
  for i := 1 to 4 do
    for j := 1 to 10 do
      begin
        oc := 1+Random(5);
          while oc<2 do
            oc := 1+Random(5);
        a[i,j] := oc;
      end;
  readln;
  writeln('Оценки студентов:');
  for i := 1 to 4 do
    begin
      write(i,'- предмет ','( ');
        for j := 1 to 10 do
          write(a[i,j],' ');
      writeln(')');
    end;
  for j := 1 to 10 do
    begin
      hor_pl[j] := 5;
      for i := 1 to 4 do
        begin
          if a[i,j]<3 then
            begin
              hor_pl[j] := 2;
              Break;
            end;
        end;
    end;
  hor := 0;
  pl := 0;
  for n := 1 to 10 do
    begin
      if hor_pl[n]=2 then
        pl := pl + 1
      else
        hor := hor + 1;
    end;
  Writeln('Количество студентов, успешно сдавших экзамен - ', hor);
  Writeln('Количество двоечников - ', pl);
  Writeln('Средний бал по предметам:');
  for i := 1 to 4 do
    begin
      sr := 0;
      for j := 1 to 10 do
        sr := sr + a[i,j];
      Writeln(i, '- предмет: ', sr/10:1:2);
    end;
  Writeln('Средний бал по студентам:');
  for j := 1 to 10 do
    begin
      h := 0;
      for i := 1 to 4 do
        h := h + a[i,j];
      writeln(j, '- студент: ', h/4:1:2);
    end;
End.

Program kursovoj;
Var
  a : array[1..4,1..10] of Integer;
  i,j,n,oc,hor,pl  : Integer;
  h,sr: Real;
Begin
  randomize;
  for i := 1 to 4 do
    for j := 1 to 10 do
      begin
        oc := 1+Random(5);
          while oc<2 do
            oc := 1+Random(5);
        a[i,j] := oc;
      end;
  writeln('Îöåíêè ñòóäåíòîâ:');
  for i := 1 to 4 do
    begin
      write(i,'- ïðåäìåò ','( ');
        for j := 1 to 10 do
          write(a[i,j],' ');
      writeln(')');
    end;
    
  for j := 1 to 10 do
    begin
      for i := 1 to 4 do
        begin
          if a[i,j]<3 then
            begin
              pl := pl + 1;
              Break;
            end;
        end;
    end;
    
  Writeln('Êîëè÷åñòâî ñòóäåíòîâ, óñïåøíî ñäàâøèõ ýêçàìåí - ', 10 - pl);
  Writeln('Êîëè÷åñòâî äâîå÷íèêîâ - ', pl);
  Writeln('Ñðåäíèé áàë ïî ïðåäìåòàì:');
  for i := 1 to 4 do
    begin
      sr := 0;
      for j := 1 to 10 do
        sr := sr + a[i,j];
      Writeln(i, '- ïðåäìåò: ', sr/10:1:2);
    end;
  Writeln('Ñðåäíèé áàë ïî ñòóäåíòàì:');
  for j := 1 to 10 do
    begin
      h := 0;
      for i := 1 to 4 do
        h := h + a[i,j];
      writeln(j, '- ñòóäåíò: ', h/4:1:2);
    end;
  readln;
End.