Bonjour,

l'erreur se produit à l'entrée de la procédure affichage:
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
program test;
uses wincrt;
var
f : text;
choix : byte;
procedure affichage_fichier ( var f : text );
var
ph : string;
begin
while not eof(f) do
	begin
		readln(f, ph);
		writeln(ph);
	end;
end;
procedure remplissage_fichier ( var f : text );
var
c : byte;
ph : string;
begin
{$i-}
reset(f);
{$i+}
if ioresult <> 0 then
	rewrite(f);
append(f);
repeat
	clrscr;
	write('la pharse à saisie');
	readln(ph);
	writeln(f, ph);
	repeat
		write('saisir une autre phrase (1 pour oui et 0 pour non)');
		readln(c);
	until
		c in [0..1];
until
	c = 0;
end;
procedure menu;
begin
writeln('1 : affichage du fichier');
writeln('2 : remplissage de fichier');
writeln('3 : quitter');
end;
procedure boucle ( var choix : byte );
begin
repeat
	clrscr;
	menu;
	repeat
		write('votre choix= ');
		readln(choix);
	until
		choix in [1..3];
	case choix of
		1 : affichage_fichier(f);
		2 : remplissage_fichier(f);
		3 : donewincrt;
	end;
until
	choix = 3;
end;
begin
assign(f, 'D:\f.txt');
boucle(choix);
close(f);
end.