Pascal/Turbo Pascal - Agrupar elementos matriz

hola k tal queria a ver si me podriais ayudar con un procedimiento que me ayude a agrupar los elementos iguales de las filas de una matriz.
Ejemplo:
1 2 3 2
2 2 4 2
1 3 2 3

asi quedaria despùes de agrupar:
2 2 3 1
2 2 2 4
3 3 1 2

a ver si me podeis dar alguna idea para hacer esto por que lo he intentado y no me sale luego si no me podeis ayudar os posteo mi codigo que no funciona jeje gracias!

No entiendo bien a que llamas agrupar, ¿podrías explicarlo un poco mejor?

Saludos.

pues cuando digo agrupar me refiero a juntar los elementos iguales al principio de cada fila de manera k ,las cifras k sean distintas queden en las posiciones finales de las filas.
GRacias.

es decir:

1 2 3 2
el resultado seria:

2 2 3 1

Ok, ya entendí.
Acá te dejo el código para agrupar una fila y en base a eso diseña el algoritmo para hacerlo en toda la matriz.

program agruparFila;

type tLinea = Array [1..5] of integer;

var Linea : tLinea;
i,j,elemento : integer;

procedure moverPrincipio (var L : tLista; pos : integer);
var k , aux : integer;
begin
aux := L[pos];
for k := pos downto 2 do
L[k] := L[k-1];
L[1] := aux;
end;

begin

for i := 1 to 5 do begin
write('Ingrese el elemento ' , i , ': ');
readln(Linea[i]);
end;

for i := 1 to 5 do begin
elemento := i;
for j := i+1 to 5 do
if Linea[elemento] = Linea[j] then begin
moverPrincipio (Linea,elemento);
moverPrincipio (Linea,j);
elemento := 1;
end;
end;

for i := 1 to 5 do
write(Linea[i] , ' ');

readln;

end.

Espero que sirva.
Saludos!

muxas gracias marcelo mañana te comento cuando lo pruebe, ojala y me saque de mi aprieto. gracias otra vez ;)