Дан двумерный массив. Найти номера первых отрицательных элементов каждой строки

var mas:array[1..100,1..100] of Integer;
    q,k,i,j,m,n:Integer;
begin
  Randomize;
  write('Size of | = ');Readln(m);
  write('Size of - = ');Readln(n);
  Writeln('   Array');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          repeat
            mas[i,j]:=Random(50)-25;
          until (mas[i,j]<>0);
          Write(mas[i,j],' ');
        end;
    Writeln;
    end;
  Writeln('Answr = ');
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to m do
        begin
          if (mas[i,j]<0) then
            begin
              Writeln(j,' ');
              Break;
            end
          else Inc(k);
        end;
      if (k = m) then Writeln('0');
    end;
Readln;
end.

 break

j:=m

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
label qqq;
var mas:array[1..100,1..100] of Integer;
    q,k,i,j,m,n:Integer;
begin
  Randomize;
  write('Size of | = ');Readln(m);
  write('Size of - = ');Readln(n);
  Writeln('   Array');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          repeat
            mas[i,j]:=Random(50)-25;
          until (mas[i,j]<>0);
          Write(mas[i,j],' ');
        end;
    Writeln;
    end;
  Writeln('Answr = ');
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to m do
        begin
          if (mas[i,j]<0) then
            begin
              Writeln(j,' ');
              goto qqq;
            end
          else Inc(k);
        end;
      qqq:
      if (k = m) then Writeln('0');
    end;
Readln;
end.

program ConsoleApp;
 
// -----------------------------
  const M = 5; N = 4;
  
  var i, j: Integer;
      a: array[1..M, 1..N] of Integer;
  
begin
  Randomize;
  for i:= 1 to M do begin
    for j:= 1 to N do begin
      a[i, j]:= Random(200) - 100;
      Write(a[i, j]:7)
    end;
    WriteLn
  end;
  
  for i:= 1 to M do begin
    j:= 1;
    while (j <= N) and (a[i, j] >= 0) do
      Inc(j);
    Write('(', i, ') ');
    if j <= N then
      WriteLn(j)
    else
      WriteLn('not found')
  end  
end.