Problem avec l'éxecution

Fermé
sizied Messages postés 1 Date d'inscription dimanche 4 novembre 2012 Statut Membre Dernière intervention 4 novembre 2012 - 4 nov. 2012 à 16:17
Bonjour,


program zied ;
uses wincrt ;
var
f : text ;
c: char ;

procedure creation ( var f : text );
var
ch,nom,ch1 : string;
begin
ch1 :='' ;
writeln('taper votre nom de fichier ');
readln(nom);
writeln('taper votre chemin de fichier ');
readln(ch);
ch1 := ch+'\'+nom+'.txt' ;
assign(f,ch1);
rewrite(f) ;
close(f) ;
end;
procedure ajout (var f:text ) ;
var
ch : string ;
rep: char;
begin
reset(f) ;
append(f) ;
repeat
writeln('taper votre ligne a ajouter ');readln(ch);
writeln(f,ch);
writeln('voulez vous ajouter un aute ou n ');
repeat
read(rep);
until rep in ['N','n','O','o'] ;

until rep in ['N','n'] ;
end ;

procedure supp ( var f:text ) ;
var
ligne ,i : integer ;
f1: text;
v : string ;
begin
reset (f) ;
assign(f1 ,'c:\,fx.txt');
rewrite(f1);
writeln ('taper votre ligne a supprimer ');readln(ligne);
for i := 1 to (ligne - 1) do
begin
readln(f,v) ;
writeln(f1,v);
end;
readln(f,v);
while not(eof(f)) do
begin
readln(f,v) ;
writeln(f1,v) ;
end;
rewrite(f) ;
reset(f1) ;
readln(f1,v) ;

writeln(f,v) ;
close(f);
end ;

procedure affiche ( var f : text) ;
var
ch : string ;
begin
reset(f) ;
while not (eof(f)) do
begin
readln(f,ch);
writeln(ch);
end;
end;
procedure modification (var f :text ) ;
var
i,x : integer;
ch : string ;

begin
reset (f) ;
writeln('taper votre ligne a modifier ') ;readln(x) ;
i := 0 ;
repeat
i := i +1 ;
readln(f,ch);
until ( eof(f) or (i= x-1 ) ) ;
read(f,ch);
writeln('modifier votre ligne');read(ch);
writeln (f,ch);
close(f)
end ;

begin

writeln(' 1 ==> creation de fichier ');
writeln(' 2 ==> ajout de ligne ');
writeln(' 3 ==> supression de ligne ');
writeln(' 4 ==> affichage des ligne ');
writeln(' 5 ==> modification de ligne ');
writeln('ECHAP ==> quitter l''application ');
read(c);
case c of
'1' : creation(f) ;
'2' : ajout (f) ;
'3' : affiche(f);
'4' : supp(f) ;
'5' : modification(f) ;
end;
end .


aider moi SVP