Дана матрица M(4*4). Определить количество особых элементов массива. Элемент считается особым, если он больше суммы остальных элементов своего столбца.

var  M: array [1 .. 4, 1 .. 4] of integer;  i, j, k, sum: integer;  count: byte;begin  for i := 1 to 4 do  begin    for j := 1 to 4 do    begin      M[i, j] := random(16);      write(M[i, j]:4);    end;    writeln;  end;  for i := 1 to 4 do  begin    sum := 0;    for j := 1 to 4 do      sum := sum + M[j, i];    for j := 1 to 4 do      if (M[j, i] > sum - M[j, i]) then        Inc(count);  end;  writeln('Количество особых элементов = ', count);end.