Дана матрица А размером п х т. Определить k — количество особых элементов массива А, считая его элемент особым, если он больше суммы остальных элементов его столбца- Pascal(Паскаль)

Program vr;

uses crt;

var
  a: array [1 .. 100, 1 .. 100] of integer;
  i, j, k, n, m, d: integer;

begin
  Clrscr;
  readln(n);
  readln(m);
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10) - 5;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  k := 0;
  for j := 1 to n do
  begin
    d := 0;
    for i := 1 to m do
    begin
      d := d + a[i, j];
    end;
    for i := 1 to m do
      if a[i, j] > d then
      begin
        k := k + 1;
      end;
  end;
  writeln('k=', k);
  readln

end.