如何在不使用goto语句的情况下在Paskal中为n循环禁止？

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