найдите ошибку в коде

[pony]

не могу найти ошибку в коде.метод dubl должен дублировать столбцы где все числа являются перестановкой чисел первого столбца,функция perestanovka проверяет это.Просто я весь день сижу и голова мягко сказать уже не варит,а прога не пашет. Оч нужна ваша помощь

program laba1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type MATRIX = class
    public
      a: array [1..100,1..100] of Integer;
      n,m,i,j: Integer;
      procedure vvod;
      procedure vyvod;
      procedure dubl;
      constructor create;
    function perestanovka(i: integer):boolean;
      destructor destroy; override;
  end;


 Constructor MATRIX.create;
 begin
   inherited Create ;
 end ;

 destructor MATRIX.destroy;
 begin
   inherited destroy;
 end;

 procedure MATRIX.vvod;
 var i,j: Integer;
 begin
   Writeln('vvedite chislo strok i stolbcov');
   Readln (n,m);
   Writeln('vvedite elementy massiva');
   for i:=1 to n do
   for j:=1 to m do
   Readln(a[i,j]);
   end ;
   procedure MATRIX.vyvod;
     var i,j: Integer;
 begin
   for i:=1 to n do
     begin
      for j:=1 to m do
      write(a[i,j]:5);
      writeln;
     end;
   //Writeln ('':j*3+2,'':i+3,a[i,j]);
   readln;
 end;

procedure MATRIX.dubl;
function perestanovka (i: integer):boolean;
 var
   d,k,t,p: integer;
   b: array [1..100] of integer;
   fl,flag: boolean;
   begin
    fl:=false;
    for d:=1 to m do
     b[d]:=1;
    for k:=1 to m do
       begin
          t:=1;
          p:= a[i,k];
          while (not(fl)) and (t<=n) do
          begin
            if a[1,t]=p then
              if b[t]=1 then
                begin
                 b[t]:=0;
                 fl:=true;
                end;
            inc(t);
          end;
       end;
     d:=1;
     flag:=true;
     while (d<=m) and (flag) do
        begin
           if b[t]= 1 then
           begin
               perestanovka:= false;
               flag:= false;
           end;
           inc(d);
        end;
     if flag then
     perestanovka:= true;

   end;
 var
 f,w:integer;
   begin
      i:=1;
      while i<=n do
      if perestanovka(i) then
         begin

             for f:=n downto i do
             a[i,j+1]:=a[i,j];
             inc(i,2);

         end
         else inc(i);
   end;
  var
  c: MATRIX;

 begin

 c:=MATRIX.create;
 c.vvod;
 c.dubl;
 c.vyvod;
 c.destroy;
 end.

[Stilet]

все числа являются перестановкой чисел первого столбца

В каком смысле "перестановкой"?