How can I break nasted for loop in Paskal without using goto statement?
<pre><code>    procedure obrada(a,b:matrica; m,n,m1,n1:integer);
    var i,j:integer; uslov:boolean;
    begin
     if (m&lt;&gt;n1) and (n&lt;&gt;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]&lt;&gt;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; 
</code></pre>

<p>Please read a comment in this code block and answer for that question if you know some solution. :)</p>