Найти номер первой из строк матрицы, содержащих хотя бы один положительный элемент

program Prog;
label 1;
var Matr: array [1..40, 1..40] of Integer;
    i,j,n,m: byte;
begin
writeln('Ввод матрицы: ');
writeln('Количество столбцов M='); readln(m);
writeln('Количество строк N='); readln(n);
for i:=1 to n do
 for j:=1 to m do
  Matr[i,j]:=-10+random(21); {заполнение числами}
 
{вывод матрицы на печать}
for i:=1 to n do
 begin
 for j:=1 to m do
  write(Matr[i,j]:4);
 writeln;
 end;
{поиск нужного номера строки}
for i:=1 to n do
 for j:=1 to m do
  if Matr[i,j]>0 then
  begin
  writeln('номер искомой строки = ', i);
  goto 1;
  end;
writeln('Нет строк с положительными элементами');
1:
readln;
end.

ReadLn; 
exit;

uses
  Crt;
const
  N = 3;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j,p: byte;
  f: boolean;
begin
  p := 0;
  f := true;
  ClrScr;
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(21) - 10;
      if (a[i, j] > 0) and f then
      begin
        p := i;
        f := not f;
      end;
      Write(a[i, j]:3, ' ');
    end;
    WriteLn;
  end;
  if f then
    WriteLn('bla-bla-bla ', p)
  else
    WriteLn('!!!');
  ReadLn;
end.

program Prog;
label 1;
var Matr: array [1..40, 1..40] of Integer;
    i,j,n,m,k: byte;
begin
writeln('Ввод матрицы: ');
writeln('M='); readln(m);
writeln('N='); readln(n);
 
for i:=n downto 1 do
 for j:=1 to m do
  begin
  Matr[i,j]:=-10+random(21);
  if Matr[i,j]>0 then k:=i;
  end;
 
if (k<>0) then writeln('искомая строка ',k)
else writeln('нет строк с положительными элементами ');
 
for i:=1 to n do
 begin
 for j:=1 to m do
  write(Matr[i,j]:4);
 writeln;
 end;
 
readln;
end.