bonjour, je suis débutante en pascal et j'ai un problem avec ce programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
program ttpp22;
type tab=array[1..100]of integer; 
var nb:integer; 
x,y:tab; 
procedure lect1d(var t:tab; taille: integer); 
var i: integer; 
begin 
    writeln('donnez la taille du tableau'); 
    readln(taille); 
    for i:=1 to taille do 
        begin 
            writeln ('t[',i,']='); 
            readln(t[i]); 
        end; 
end; 
 
procedure ecr1d(t:tab;taille:integer); 
var i:integer; 
begin 
     for i:=1 to taille do 
      writeln(t[i]); 
end; 
procedure tricpt_3(t:tab;ta:integer;var res:tab); 
type tab=array[1..100] of integer; 
var j:integer; 
zc:tab; 
function elem_inf(n,ind:integer;t:tab;taille:integer):integer; 
  var i, cpt:integer; 
  begin 
      cpt:=0; 
      for i:=1 to taille do begin
         if (n>=t[i]) and (i<>ind)then 
         cpt:=cpt+1; 
      end;
   elem_inf:=cpt; 
  end; 
procedure ecr1d(t:tab;taille:integer); 
  var i:integer; 
  begin 
        for i:=1 to taille do 
        writeln(t[i]); 
  end; 
begin 
      for j:=1 to ta do 
         begin 
             zc[j]:=elem_inf(t[j],j,t,ta); 
             res[zc[j]+1]:=t[j]; 
          end; 
      ecr1d(res,ta); 
end; 
begin 
    lect1d(x,nb); 
    tricpt_3(x,nb,y); 
    ecr1d(y,nb); 
    readln; 
   readln; 
end.
il se compile mais il s'execute pas?! help please