executer cette  programme par le machine vite !!!!!!!!!!!!!!!!!!
 
program tri_bull;
uses wincrt;
type
tab = array [0..100] of integer;
var
t : tab;
n,i,j:integer;
procedure saisie ( var n : integer);
begin
repeat
writeln('donner un entier N ');
readln(n);
until (n in [1..100]);
end;
procedure remplir ( var t : tab ; n :integer);
var
i :integer;
begin
writeln(' donner un tableau T ');
for i := 1 to n do
readln(t[i]);
end;
 
procedure permut (var t :tab ; x,y : integer);
var  
temp : integer;
begin
temp:=t[x];
t[x]:=t[y];
t[y]:=temp;
end;
 
procedure tri ( var t : tab ; n,i,j : integer);
 
begin
 
if (i<=n-1) then
begin
 
if  (j <= n-i) then
begin
     
 
     if(t[j]>t[j+1]) then      
                         permut(t,j,j+1)
     else tri(t,n,i,j+1);
   
end;
 tri(t,n,i+1,j);
 
end;
end;
 
procedure affiche ( t:tab ;n :integer);
var
i :integer;
begin
writeln('Tableau Trié');
for i := 1 to n do
 
writeln(t[i]);
end;
 
BEGIN
saisie(n);
remplir(t,n);
tri(t,n,i,j);
affiche(t,n);
END.

Tu devrai mettre tes codes entre des balises ["code"] ou mieux [code=pascal] peut-être, sans les guillemets  

Bon, stop, c'est le troisième sujet de ta part que je ferme, je vais te laisser quelques jours pour méditer sur le degré d'utilité de tes interventions.