дана вещественная матрица А размера nхm .Опр-ть k-кол-во особых элементов массива А ,считая его элемент особым,если он больше суммы остальных элементо

uses
  Crt;
const
  N = 4;
  M = 4;
var
  a: array [1..N, 1..M] of integer;
  i,j,sum,c: integer;
begin
  ClrScr;
  c := 0;
  WriteLn('Matrix A:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      Write(a[i, j]:2, ' ');
    end;
    WriteLn;
  end;
  for j := 1 to M do
  begin
    sum := 0;
    for i := 1 to N do
      Inc(sum, a[i,j]);
    for i := 1 to N do
      if a[i, j] > sum then
        Inc(c);
  end;
  WriteLn('Result: ', c);
  ReadLn;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    m,n,i,j,p:byte;
    k:integer;
    sm:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=20*random-9;
     write(a[i,j]:6:2);
    end;
   writeln;
 end;
writeln;
k:=0;
for j:=1 to m do
 begin
  sm:=0;p:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  for k:=1 to n do
  if a[k,j]>sm-a[k,j] then p:=p+1;
  k:=k+p;
 end;
write('Количество особых элементов=',k);
readln
end.