Найти среднее арифметическое столбца в матрице и отнять его из всех элементов матрицы, кроме этого столбца

program uuu;
uses crt;
const n=4;
      m=4;
var 
a:array[1..n,1..m]of integer;
    b:array[1..n]of integer;
    i,j:byte;
    max:integer;
begin
clrscr;
writeln('matrica:');
writeln;
for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
    readln;
clrscr;
writeln(matrica:');
for i:=1 to n do
begin
    for j:=1 to m do write(a[i,j]:3);
writeln;
end;
writeln;
writeln('Massiv, elementi matrici:');
writeln;
for i:=1 to n do
    begin
    max:=a[1,1];
    for j:=1 to m do
        if a[i,j]>max then max:=a[i,j];
    b[i]:=max;
    end;
for i:=1 to n do write(b[i]:5);
 
end.

const
  n = 4;
 
var
  a: array[1..n, 1..n]of real;
  k, i, j: integer;
  sr: real;
 
begin
  writeln('matrica:');
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      a[i, j] := -n div 2 + random * n;
      write(a[i, j]:8:2);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to n do
    if a[1, j] > a[n, j] then 
    begin
      k := j; //1-й >
      break;
    end;
  if k = 0 then
    writeln('Net takogo stolbtsa!:')
    else
  begin
    for j := 1 to n do
      sr := sr + a[k, j];
    sr := sr / n;
    writeln('Srednee ', k, '-go stolbtsa: ', sr);
    writeln('Novaya matrica:');
    for i := 1 to n do
    begin
      for j := 1 to n do 
      begin
        if j <> k then
          a[i, j] := a[i, j] - sr;
        write(a[i, j]:8:2);
      end;
      writeln;
    end;
  end;
end.