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

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.