Bonjour tout le monde,

J'ai écrit le programme ci-dessous et à quand je l'execute il me lit le fichier txt mais quant à l'écriture il me crée le fichier mais ne m'écrit pas mes données dedans:

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
 
program listechainee;
 
const
     path='C:\pascal\tp2\';
Var
     f1, f2 :text;
     tab : array [1..1000] of integer;
     n, i : integer;
 
begin
 
assign (f1, path+'listechainee.txt');
assign (f2, path+'sortie1.txt');
reset (f1);
rewrite(f2);
 
i:=0;
 
while not eof(f1) do
 
begin
i:= i+1;
read (f1, tab[i]);
write ('ligne', i:3, tab[i]:15);
readln;
end;
 
begin
n:=i;
for i:=1 to n do
write(f2, tab[i]);
end;
 
close (f1);
close (f2);
End.
Avec mes remerciements pour votre aide.