Практика по паскалю

[Stilet]

все перестановки в массиве a (i,j)?

Всмысле? поясни подробнее.
Такой вариант чем не катит?

const a:array[1..4,1..4] of integer=((3,3,0,4),(5,9,3,0),(0,8,7,1),(8,0,3,5));
 var q,i,j:integer;
begin
 for i:=1 to 4 do begin
  for j:=1 to 4 do begin
   if (a[j,i]=0) then begin
     for q:=1 to 4 do write(a[j,q]:5); writeln; break;
   end;
  end;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[ОДИНОЧЕСТВО В СЕТИ]

{  ПРЕВРАТИТЬ
  3 3 0 4           0 8 7 1
  5 9 3 0           8 0 3 5 
  0 8 7 1    В      3 3 0 4 
  8 0 3 5           5 9 3 0 }
 
var m:array[1..4,1..4] of Integer;
  i,j:Integer;
    f:boolean;
    k:Integer;
  tmp:Integer;
begin
  for i:=1 to 4 do
    for j:=1 to 4 do
      readln(m[i,j]);
  Writeln('***OLD**MATRIX***');
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        write(m[i,j]:4);
      Writeln;
    end;
  Writeln('*****************');
  f:=True;
  while f do begin
    f:=False;
    for i:=1 to 4 do
      for j:=1 to 4 do
        if (m[i,j]=0) and (i<>j) then
          begin
            for k:=1 to 4 do
              begin
                tmp:=m[i,k];
                m[i,k]:=m[j,k];
                m[j,k]:=tmp;
                f:=True;
              end;
            break;
          end;
  end;
  Writeln('***NEW**MATRIX***');
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        write(m[i,j]:4);
      Writeln;
    end;
  Writeln('*****************');
  Writeln('*PRESS ANY KEY TO EXIT*');
  Readln;
end.

[Айдар]

Слушайте а зачем здесь f:boolean; и break? без этого тоже работает.