Найти количество отрицательных элементов ниже главной диагонали матрицы

uses crt;
const n=4;
var m:array[1..n,1..n]of real;
i,j,k:integer;
min,s:real;
 
begin
 clrscr;
 for i:=1 to n do for j:=1 to n do
 begin
  write('M[',i,' ',j,']: ');
  readln(m[i,j]);
 end;
 k:=0;
 for i:=1 to n do
 for j:=1 to i-1 do if m[i,j]<0 then inc(k);
 
 writeln('Отрицательных элементов - ',k);
 if k=0 then
 begin 
  for i:=1 to n do
  begin
   min:=m[i,1];
   for j:=1 to n do if m[i,j]<min then min:=m[i,j]; 
   writeln('Минимум в ',i,'-й строке = ',min);
  end;
 end else
 begin
 writeln('Номера столбцов: ');
 for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do s:=s+m[i,j];
  if s<0 then write(j,' ');
 end;
 end;
 readln;
end.

uses crt;
var a:array[1..100,1..100] of real;
    i,j,n,k,ti:integer;
    min,sum:real;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(20);
    Write(a[i,j]:6:1);
   end;
  Writeln;
 end;
k:=0;
 for i:=1 to n do
  for j:=1 to n do
   if (i>j) and (a[i,j]<0) then
    k:=k+1;
Writeln;
Writeln('K=',k);
    if k=0 then
     begin
      for i:=1 to n do
       begin
        min:=a[i,1];
         for j:=1 to n do
          if a[i,j]<min then
           min:=a[i,j];
           Write(min:6:1);
          end;
         end
      else
      begin
       for j:=1 to n do
        begin
         sum:=0;
          for i:=1 to n do
           sum:=sum+a[i,j];
            if sum<0 then
           Write(j:6);
         end;
        end;
Readln;
end.