j'ai lu sur le site la solution de cette erreur, en utilisant IORESULT, qui ne s'applique pas à mon programme vue que je n'ai aucun de fichiers.
je sais aussi que ça peut etre dû à une mauvaise manipulation de write et writeln, donc voici le fraguement du prog ou l'erreur est indiquée:
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
 
.......
for i:=1 to n do 
begin 
   if k=1 then 
         mat[i,j]:=t1[i,h] 
   else if k=2 then 
         mat[i,j]:=t2[i,h] 
   else 
         mat[i,j]:=t3[i,h]; 
end; 
end; 
 
  writeln;writeln;textcolor(15); {*c'est ici que le programme m'indique l'erreur}
 
for j:=1 to f do 
begin 
    for i:=1 to n do 
        write(mat[i,j]); 
    writeln; 
end; 
textcolor(2); 
for j:=f+1 to g do 
begin 
   for i:=1 to n do 
        write(mat[i,j]); 
   writeln; 
end; 
textcolor(6); 
for j:=g+1 to m do 
begin 
    for i:=1 to n do 
        write(mat[i,j]); 
    writeln; 
end; 
writeln; 
textcolor(15); 
 
write('Press Enter'); 
readln(x); 
clrscr; 
end;  
.........
etc

merci pour votre aide!