Program tri_selection_recursive;
uses wincrt;
const Nmax=100;
type
tab=array[1..Nmax]of integer;
var
n,c:integer;
t:tab;
(*******************************************************)
procedure saisie(var n:integer;var t:tab);
var i:byte;
begin
write('donner la taille du tableau:');read(n);
for i:=1 to n do
begin
writeln('saisir la case N°:',i);readln(t[i]);
end;
end;
(******************************************************)
function posmin(n,c:integer;t:tab):integer;
var i:byte;
min:integer;
begin
min:=c;
for i:=c+1 to n do
begin
if t[i]<t[min] then
begin
min:=i;
end;
end;
posmin:=min;
end;
(*****************************************************)
procedure permut(var x,y:integer);
var tmp:integer;
begin
tmp:=x;
x:=y;
y:=tmp;
end;
(*****************************************************)
procedure tri(n:integer;var t:tab);
var i:byte;
min:integer;
begin
for i:=1 to n-1 do

min:=posmin(n,c,t);
if t[i]<>t[min] then
permut(t[i],t[min]);

end;
(****************************************************)
procedure affiche(n:integer;t:tab);
var i:byte;
begin
writeln('tapez une touche pour trier');
readln;
for i:=1 to n do
begin
write(t[i]:3)
end;
end;
(***************************************************)


begin
saisie(n,t);
tri(n,t);
affiche(n,t);
end.
{j'ai un probleme est ce que vous pouvez me donner une solution }

Un algoritme de trie par insertion

Salut
voilà le programme de tri par insertion sur un tableau d'entier

program tri_par_insertion;
uses wincrt;
const nmax = 50;
type tab = array[1..nmax] of integer;
var
ti : tab;
i, j, n, x, k,aux :integer;
function lecture : integer;
var
n: integer;
begin
repeat
writeln('donner un entier positif entre 1 et ',nmax);
read(n);
until(n in [1..nmax]);
lecture :=n;
end;
procedure remplir(var t : tab; a : integer);
var
i : integer;
begin
writeln('remplissage de tableau');
for i:=1 to a do
read(t[i]);
end;
procedure permut(a,b: integer);
var
aux : integer;
begin
aux:=a;
a:= b;
b :=aux;
end;
procedure Tri_insertion(n : integer ; var t : tab);
var
k, i, j : integer;
begin
for i := 1 to n do
begin
k := t[i]; (* Valeur à insérer *)

(* Recherche de la position d'insertion *)
j:= i;
while (j > 0) and (t[j - 1] > k) do
begin
t[j] := t[j - 1];
j := j - 1;
end;

(* Insertion de la valeur à son emplacement *)
t[j] := k;
end;
end;

procedure affiche (t: tab; a:integer);
var
i : integer;
begin
for i:=1 to n do
writeln(t[i]);
end;
begin
n :=lecture;
remplir(Ti,n);
tri_insertion(n,ti);

writeln(' affichage');
affiche(Ti,n);
end.

Voilà le tri shell en Pascal

program tri_par_shell;
uses wincrt;
const nmax = 50;
type tab = array[1..nmax] of integer;
var
ti : tab;
i, j, n, x, k,aux :integer;
function lecture : integer;
var
n: integer;
begin
repeat
writeln('donner un entier positif entre 1 et ',nmax);
read(n);
until(n in [1..nmax]);
lecture :=n;
end;
procedure remplir(var t : tab; a : integer);
var
i : integer;
begin
writeln('remplissage de tableau');
for i:=1 to a do
read(t[i]);
end;
procedure permut(a,b: integer);
var
aux : integer;
begin
aux:=a;
a:= b;
b :=aux;
end;
procedure Tri_Shell(n : integer ; var t : tab);
var
p, k, i, j : integer;
begin
(* Recherche du Gap optimal qui est le résultat de *)
(* la suite récurrente : Un = 3.Un-1 + 1 *)
(* Tel que Un < n (Nombre d'éléments du tableau) *)
p := 0;
while (p < n) do p := 3 * p + 1;

while (p <> 0) do
begin
(* On affine peu à peu le Gap *)
(* Gap = 1 ==> Tri par Insertion ordinaire *)
p := p div 3;
for i := p to n do
begin
k := t[i]; (* Valeur à insérer *)

(* Recherche de la position d'insertion *)
j:= i;
while (j > p - 1) and (t[j - p] > k) do
begin
t[j] := t[j - p];
j := j - p;
end;

(* Insertion de la valeur à son emplacement *)
t[j] := k;
end;
end;
end;

procedure affiche (t: tab; a:integer);
var
i : integer;
begin
for i:=1 to n do
writeln(t[i]);
end;
begin
n :=lecture;
remplir(Ti,n);
tri_shell(n,ti);

writeln(' affichage');
affiche(Ti,n);
end.

Ma question est la suivante :

Classer automatiquement une liste de n entiers par ordre croissant puis décroissant.(en PASCAL)

Merci.