Bonsoir tout le monde

j'ai besoin d'aide, ce programme ne marche pas : il m'indique runtime error 202
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
program hn;
uses wincrt ;
type
tab=array[1..20]of string;
var
t:tab;
n:integer;
ch:string;
 
 
 
 
procedure saisie(var t:tab;var n:integer);
var
i:integer;
begin
repeat
writeln('donner n');
readln (n);
until n in [5..20];
for i:=1to n do
begin 
repeat
writeln('donner t[i]',i) ;
readln (t[i]);
until length (t[i])<>0;
end;
end;
 
 
 
function fn (t:tab; x:string; n:integer):boolean;
var
i:integer;
begin
fn:=false;
for i:=1to n do
begin
if
length (t[i]) <> 0
then
begin 
fn :=true;
end;
end;
end;
 
 
 
 
 
 
 
procedure tableau(t:tab; n:integer ;var ch:string);
var
i,p,j:integer;
x:string;
begin
for i :=1to n do
begin
ch:=t[i];
 
  j:=1;
 
if not (upcase  (ch[j]) in ['A'..'Z'])
then begin
repeat
 p:=j;
delete (ch,p,1);
j:=j+1;
 
writeln(ch);
until (j=length(ch)) or (i=n);
end;
 
end;
if fn(t,x,n) =true
then
begin
writeln (ch,i);
 
end;
end;
 
 
 
begin
saisie(t,n);
tableau(t,n,ch);
end.