Увеличить каждый элемент матрицы А на величину среднего арифметического всех ее элементов

uses
  crt;
const
  str=4;
  col=4;
var
  a:array [1..str,1..col] of real;
  i,j,pc,oc,temp:integer;
  sr,summ:real;
begin
  clrscr;
  oc:=0;
  pc:=0;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      if a[i,j]>0 then
        inc(pc)
      else
        if a[i,j]<0 then
          inc(oc);
      summ:=summ+a[i,j];
      write(a[i,j]:4:0,' ')
    end;
    writeln
  end;
  {ïðîâåðÿåì áîëüøå ëè}
  sr:=summ/(str*col);
  if oc>pc then
  begin
    for i:=1 to str do
      for j:=1 to col do
        a[i,j]:=a[i,j]+sr;
    {âûâîäèì ìàòðèöó}
    writeln('Ïîëó÷åííàÿ ìàòðèöà:');
    for i:=1 to str do
    begin
      for j:=1 to col do
        write(a[i,j]:6:2,' ');
      writeln
    end
  end
  else
    writeln('Êîëè÷åñòâî îòðèöàòåëüíûõ íå áîëüøå êîëè÷åñòâà ïîëîæèòåëüíûõ!')
end.