Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в которых содержится ровно 2 отрицательных элемента

program m1;
{Разработать подпрограмму-процедуру для вычисления номеров строк матрицы, в которых содержится 
ровно два отрицательных элемента. С помощью этой процедуры определить, 
в каких строках заданной матрицы X нет ровно двух отрицательных элементов.}
uses
  crt;
const
  Nmax = 50;  
type
  matr = array[1..Nmax,1..Nmax] of integer;    
  ctp = set of byte;
var
  x : matr;
  m,n,i,j : byte;
  c : ctp;
procedure NumLn(a:matr; m,n:byte; var b : ctp);
var i,j,k : byte;
begin
  b := [];
  for i := 1 to m do begin k := 0;
    for j := 1 to n do
      if a[i,j]<0 then inc(k);
      if k=2 then begin include(b,i); end;
      end;
end;  
begin
  clrscr;
  repeat
  write('Размер матрицы m*n : ');
  readln(m,n);
  until (m in [1..Nmax]) and (n in [1..Nmax]);
  randomize;
  writeln('Исходная матрица :');
  for i := 1 to m do begin
    for j := 1 to n do begin
      x[i,j] := random(61)-30;
      write(x[i,j]:4);
      end;
      writeln;
      end;
  NumLn(x,m,n,c);
  writeln('В следующих строках, заданной матрицы X нет ровно двух отрицательных элементов :');
  for i := 1 to m do
    if not (i in c) then write(i:4);    
  readln;
end.