Как я могу сломать nested для цикла в Paskal без использования инструкции goto?

Question

procedure obrada(a,b:matrica; m,n,m1,n1:integer); 
    var i,j:integer; uslov:boolean; 
    begin 
    if (m<>n1) and (n<>m1) then writeln('Nema transponovanja.') 
    else 
    begin 
    uslov:=true; 
    for i:=1 to m do 
     for j:=1 to n do 
     if (a[i,j]<>b[j,i]) then 
     begin 
      uslov:=false;//What should I write here to go directly on line 
          'writeln('Can not be obtained');' and stop checking this 
          matrix when this codition is true? 
     end; 
    if uslov then writeln('The first matrix can not be obtained by transposing other ') 
    else writeln('Can not be obtained'); 
    end; 
    end; 

Прочтите комментарий в этом блоке кода и ответьте на этот вопрос, если вы знаете какое-то решение. :)

Answer 1

Кажется, что вы хотите использовать Break;

Подробнее здесь: http://www.freepascal.org/docs-html/rtl/system/break.html