Задача : дана матрица порядка n состоящая из попарно различных элементов, напечатать все перестановки ... вот код, но почему-то игнорируется одно условие (я отметил) хотя три строчки раньше оно выполняется ... я не понимаю в чем дело ...

uses crt;

type
   TArr = array[1..10] of integer;

procedure Input(var arr : TArr; n :  integer);
var
   i : byte;
begin
   for i := 1 to n do readln(arr[i]);
end;

procedure Print(arr : TArr; n : integer);
var
   i : byte;
begin
   writeln;
   for i := 1 to n do write(arr[i]:4);
end;

procedure Change(arr : TArr; n : integer);
var
   i,count : byte;
   T : integer;

begin

   count := 0;

   repeat

      if count = n - 1 then // тут срабатывает
       dec(n);

      for i := 1 to n - 1 do begin

         T := arr[i];
         arr[i] := arr[i+1];
         arr[i+1] := T;

         if count = n - 1 then // А тут нет ! Хотя елси проверить, count тут хранит то же значение (n-1)
          inc(n);

         Print(arr,n);

      end;

      inc(count);

   until count > n - 1 ;
end;

var
   a : TArr;

   size : integer;
begin

   clrscr;
   size := 3;
   Input(a,size);
   clrscr;
   Print(a,size);
   Change(a,size);
   readln;
end.

При второй проверке n меньше на еденицу.
Так что если будет выполнен первый if, то второй не исполнится никогда.

точно .. спасиб