Все одинаковые элементы переместить в конец массива

Program elem;
    uses crt;
    const n=12;m=10;p=120;
    type tvector=array[1..p] of integer;
    var a:array[1..n,1..m] of integer;
        i,j,k,l,v:integer;
        b:^tvector;
begin
    clrscr;
    randomize;
    for i:=1 to n do
        for j:=1 to m do
                a[i,j]:=random(100);
    for i:=1 to n do 
        begin
            for j:=1 to m do
                write(a[i,j],' ');
            writeln;
        end;
     readln;
    new(b);
     k:=1;
    for i:=1 to n do 
        for j:=1 to m do 
            [COLOR="Red"]begin  {переписываем елементы в дин. одномерный массив}
                b^[k]:=a[i,j];
                k:=k+1;
            end;
     for k:=1 to p do begin
        for l:=1 to k-1 do 
                if b^[l]=b^[k] then 
                        begin
                            v:=b^[k];
                            for i:=k to p do
                                b^[i]:=b^[i+1];
                            b^[p]:=v;
                        end;
        for l:=k+1 to p do    {робота с дин. масивом}
                if b^[l]=b^[k] then 
                        begin
                            v:=b^[k];
                            for i:=k to p do
                                b^[i]:=b^[i+1];
                            b^[p]:=v;
                        end;
    end;[/COLOR]
    k:=1;
    for i:=1 to n do
        for j:=1 to m do
            begin
                a[i,j]:=b^[k]; {запись обратно в двухвымерный массив}
                k:=k+1;
            end;
      dispose(b);
     for i:=1 to n do 
        begin
            for j:=1 to m do
                write(a[i,j],' ');
            writeln;
        end;
     readln;
 
end.