Дана вещественная матрица «А» размерностью n*m. Определить «К» — количество «особых» элементов массива «А», считая его элемент особым, если он больше суммы остальных элементов его столбца — Pascal(Паскаль)

var
 a: array of array of integer;
 i, j, n, m, k, q: integer;
 summ: integer;
begin
 //Получение данных
 write('Enter row count ');
 readln(n);
 write('Enter column count ');
 readln(m);
 writeln;
 writeln('Matrix');
 writeln;
 SetLength(a, n, m);
 randomize;
 //Заполнение матрицы
 for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
  begin
   a[i,j]:=random(61)-10;
   write(a[i,j],' ');
  end;
  writeln;
 end;
 //Поиск особых
 k := 0;
 for i := 0 to n-1 do
  for j := 0 to m-1 do
  begin
   Summ := 0;
   for q := 0 to n-1 do
    if q <> i then
     Summ := Summ + a[q, j];
   if a[i, j] > Summ then
    inc(k);
  end;
 //Вывод результата
 writeln;
 write('Total ',k,' special');
 readln;
end.