Выход из вложенного цикла

{Ввести числовой массив А размерностью 4х5.
Сформировать одномерный массив В по следующему правилу:
если в i-ой строке массива А
найдётся хотя бы один неотрицательный элемент,
то В[i]=1, иначе  В[i]=0.}
 
program  array;
 
uses crt;
 
const   m = 4;
        n = 5;
        z = m;
 
var a: array [1..m, 1..n] of integer;
    b: array [1..z] of integer;
    i,j,k:integer;
 
begin
    clrscr;
    randomize;
 
    for i:=1 to m do
        begin
            for j:=1 to n do
            begin
                a[i,j]:=random(40)-20;
                write(a[i,j]:5);
            end;
            writeln;
        end;
 
    k:=0;
            
    for i:=1 to m do
        for j:=1 to n do
            begin
            if (a[i,j]>=0) then
                begin
                    k:=k+1;
                    b[k]:=1;
                end
            else
                begin
                    k:=k+1;
                    b[k]:=0;
                end;
            end;
                
    writeln;
    for i:=1 to k do
    write(b[i],' ');
 
 
    writeln;
    write('Нажмите любую клавишу для завершения...');
    readkey;
end.

{Ввести числовой массив А размерностью 4х5.
Сформировать одномерный массив В по следующему правилу:
если в i-ой строке массива А
найдётся хотя бы один неотрицательный элемент,
то В[i]=1, иначе  В[i]=0.}
program  massiv;
uses crt;
const   m = 4;
        n = 5;
var a: array [1..m, 1..n] of integer;
    b: array [1..m] of integer;
    i,j,k:integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10)-8;
    write(a[i,j]:5);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if (a[i,j]>=0) then
    begin
     k:=1;
     break;
    end;
  if k=0 then b[i]:=0 else b[i]:=1;;
 end;
writeln('Массив В:');
for i:=1 to m do
write(b[i],' ');
writeln;
writeln;
write('Нажмите любую клавишу для завершения...');
    readkey;
end.