Элементы каждого из столбцов матрицы увеличить на найденное максимальное значение этого столбца

Program zadacha;
Var A:array[1..3, 1..4] of integer;
    i,j,k:integer;
Begin
WriteLn('Массив');
For i:=1 to 3 do
Begin
For j:=1 to 4 do
Begin
A[i,j]:=random(100);
Write(A[i,j]:4);
End;
WriteLn;
k:=A[1,j];
End;
for i:=1 to 3 do
Begin
For j:=1 to 4 do
Begin
if A[1,j]>k then k:=A[1,j];
End;
End;
WriteLn('Наибольший элемент первой строки', k:4);
End.

const n_max=10;
type matrix=array [1..n_max,1..n_max] of integer;
var A:matrix;
    i,j,max:integer;
    
procedure M_read (var A:matrix);
var i,j:integer;
begin
  for i:=1 to 3 do
   for j:=1 to 4 do
    A[i,j]:=random(101)-50; //Любые числа из интервала [-50;50]
end;
 
procedure M_write (A:matrix);
var i,j:integer;
begin
  for i:=1 to 3 do
   begin
    for j:=1 to 4 do
     write (A[i,j]:4);
    writeln;
   end;
  writeln;
end;
 
procedure StbMax (A:matrix;var max:integer; j:integer);
var i:integer;
begin 
  max:=A[1,j];
  for i:=2 to 3 do
   if A[i,j]>max then
    max:=A[i,j];
end;
 
begin
  M_read (A);
  M_write (A);
  for j:=1 to 4 do
  begin
    StbMax (A,max,j);
    for i:=1 to 3 do
     A[i,j]:=A[i,j]+max;
  end;
  M_write (A);
end.

const n_max=10;
var A:array [1..n_max,1..n_max] of integer;
    i,j,max:integer;
    
begin
  for i:=1 to 3 do
   for j:=1 to 4 do
    A[i,j]:=random(101)-50;
  for i:=1 to 3 do
  begin
   for j:=1 to 4 do
    write (A[i,j]:4);
   writeln;
  end;
  writeln;
  for j:=1 to 4 do
  begin
    max:=A[1,j];
    for i:=2 to 3 do
     if A[i,j]>max then
      max:=A[i,j];
    for i:=1 to 3 do
     A[i,j]:=A[i,j]+max;
  end;
  for i:=1 to 3 do
   begin
    for j:=1 to 4 do
     write (A[i,j]:4);
    writeln;
   end;
  writeln;
end.