Вывести на экран номер первой строки матрицы, в которой содержаться только положительные элементы

const m=5;
      n=10;
var a:array[1..m,1..n] of integer;
    i,j,i1,k:byte;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
i1:=0;
i:=1;
while(i<=m)and(i1=0) do
 begin
  k:=0;
  j:=1;
  while(j<=n)and(k=0) do
  if a[i,j]<=0 then k:=1
  else inc(j);
  if k=0 then i1:=i
  else inc(i);
 end;
write(i1);
end.

const m=5;
      n=10;
var a:array[1..m,1..n] of integer;
    i,j,o1,pp:byte;
    x:integer;
    mn:set of byte;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
mn:=[];
for i:=1 to m do
 begin
  o1:=0;
  pp:=0;
  for j:=1 to n do
   begin
    if(a[i,j]<0)and(o1=0) then o1:=j;
    if a[i,j]>0 then pp:=j;
   end;
  if(o1=0)or(pp=0)then mn:=mn+[i]
  else
   begin
    x:=a[i,o1];
    a[i,o1]:=a[i,pp];
    a[i,pp]:=x;
   end;
 end;
writeln('Обмен в строках первого отрицательного и последнего положительного');
for i:=1 to m do
 begin
  for j:=1 to  n do
  write(a[i,j]:4);
  writeln;
 end;
if mn<>[] then
 begin
  write('В строках ');
  for i:=1 to m do
  if i in mn then write(i,' ');
  writeln('нет пар элементов для обмена');
 end;
end.