Сформировать массив, каждый элемент которого равен первому положительному элементу соответствующей строки

const n=5; m=6;
var
a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
writeln('ishodniy massiv:');
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=-5+random(15);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for j:=1 to m do begin
    for i:=1 to n do
   end;
   readln;
end.

const n=5; m=6;
var
a:array[1..n,1..m] of integer;
b:array[1..n]of integer;
i,j,k:integer;f:boolean;
begin
writeln('ishodniy massiv:');
  randomize;
  writeln('A:');
  for i:=1 to n do
  begin
    f:=false;b[i]:=0;
    for j:=1 to m do
    begin
      a[i,j]:=-5+random(16);
      write(a[i,j]:4);
      if (a[i,j]>0)and(not f) then begin f:=true;b[i]:=a[i,j] end
    end;
    writeln;
  end;
  writeln('B:');
  for i:=1 to n do write(b[i]:4); 
  readln
end.

const n=5; m=6;
var a:array[1..n,1..m] of integer;
    b:array[1..n] of integer;
    i,j,k:integer;
begin
writeln('ishodniy massiv:');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=-5+random(16);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  b[i]:=0;
  j:=1;
  while(j<=m)and(b[i]=0) do
  if a[i,j]>0 then b[i]:=a[i,j]
  else j:=j+1;
 end;
writeln('Massiv B');
for i:=1 to n do
write(b[i]:4);
readln;
end.