Tri matrice

Bonjour,
SVP m'aider à trouver une solution pour trier une matrice en pascal(tri par sélection),
J'ai essayé avec ce programme pascal mais il une petite erreu que j'ai pas compris
(lors de l'exécution la matrice n'est pas totalement triée)

voila le programme en pascal
PROGRAM tri_par_selection;
Uses wincrt;
type
mat = array[1..100 , 1..100] of integer;
var
n, i, j : integer;
procedure saisir(var x: integer);
begin
writeln('donner le nb de colonnes et de lignes ');
readln(x);
end;
procedure remplir(var m: mat ; n: integer);
begin
for i := 1 to n do
begin
for j:= 1 to n do
begin
writeln('donner mat[' , i, ' ' , j, '] ');
readln(m[i,j]);
end;
end;
end;

function posmin ( m:mat; n, i,j: integer; var poslign, poscol : integer);
var k : integer;
begin
petit_ligne := i;
petit_clon:= j
for k := i+ 1 to n do
for p ;= i + 1 to n do
if (t[petit]> t[j]) then petit := j;
posmin := petit;
end;

procedure permuter( var a, b: integer);
var sauv : integer;
begin
sauv := a;
a :=b;
b := sauv;
end;

procedure tri_select(var t: tab; n: integer);
var
pm: integer;
begin
for i:= 1 to n-1 do
begin
posmin ( t, n, i,j , poslign, poscol);

permuter(mat[i,j] , mat[poslign, poscol]);

end;


PROCEDURE AFFICHE (T : Tab ; n : integer) ;
BEGIN
For i := 1 To n Do WriteLN (TI]);
END;

BEGIN
saisir(n);
remplir(t,n);
TRI_SELECT(T, n) ;
AFFICHE (T, n) ;
END.