Определить процедуру преобразования целочисленной матрицы по следующему правилу: каждый элемент матрицы заменяется суммой остальных элементов, расположенных в данном столбце — Pascal(Паскаль)

program PascalGuru;

var
  A: array [1 .. 50, 1 .. 50] of integer;
  n: integer;

procedure vvod;
var
  i, j: integer;
begin
  write('Vvedite razmer matricy A: ');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
      A[i, j] := (-3) + random(9);
  { begin
    write ('A[',i,',',j,']='); readln (A[i,j]); end; }
end;

{ -------------------------------------------- }
procedure vyvod;
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to n do
      write(A[i, j]:8);
  end;
end;

{ -------------------------------------------- }
procedure preobrazovanie;
var
  i, j, summa: integer;
begin
  { for i:=1 to n do
    for j:=1 to n do B[i,j]:=A[i,j]; }

  for j := 1 to n do
  begin
    summa := 0;
    for i := 1 to n do
      summa := summa + A[i, j];
    for i := 1 to n do
      A[i, j] := summa - A[i, j];
  end;

end;

{ -------------------------------------------- }
begin

  vvod; { запрос матрицы с клавы }

  writeln;
  writeln('Ishodnaya:');
  vyvod; { вывод матрицы на экран }

  preobrazovanie; { преобразование матрицы по условию }

  writeln;
  writeln;
  writeln('Prebrazovannaya:');
  vyvod; { вывод матрицы на экран }

  readln;

end.