Дан двумерный массив вещественных чисел из 4 столбцов и 3 строк. Первый элемент в каждом столбце заменить на среднее арифметическое от всех элементов массива,выполнить с использованием процедур — Pascal(Паскаль)

uses crt;
const n=4;
      m=3;
var a:array[1..n,1..m] of real;
    i,j:integer;
    sr,s:real;
 
procedure Srz;
begin
s:=0;
sr:=0;
for i:=1 to n do
 for j:=1 to m do
  s:=s+a[i,j];
 sr:=s/n*m;
for i:=1 to n do
 a[1,i]:=sr;
end;
 
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-10+random(20);
    Write(a[i,j]:6:1);
   end;
  Writeln;
 end;
Writeln;
Srz;
Writeln;
for i:=1 to n do
 begin
  for j:=1 to m do
   Write(a[i,j]:6:1);
  Writeln;
 end;
Readln;
end.