Все элементы, для которых находится хотя бы один равный ему элемент, переписать в конец массива

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 
        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;
    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.