Lire et écrire dans un fichier texte

Créer un fichier texte appelé exercice.txt et y stocker des valeurs (de type string) récupérées depuis le clavier jusqu'à la lecture de la chaîne 'FIN' (peut importe la casse, 'fin' ou 'fIn'). La chaîne de caractère, 'FIN' en l'occurrence ne sera pas stockée dans le fichier

salu nidhal007

viola la code:


program file;
uses wincrtcrt;

procedure up(var s: string);
var
i: Integer;
begin
for i := 1 to Length(s) do
s := UpCase(s[i]);
end;

var
F: Text;
s: string;
sortie: boolean;
begin

assign(F, 'c:\tp\exercice.txt');
rewrite(F);
sortie := false;

repeat
writeln('Entrez une chaine a ecrire dans le fichier');
readln(s);
up(s);
if (s = 'FIN') then
sortie := true
else
writeln(F, s);
until sortie = true;

close(F);
end.


[i]
lol

desloer il ya une erreur ce code est juste.


program file1;
uses wincrt;

procedure up(var s: string);
var
i: Integer;
begin
for i := 1 to Length(s) do
s[i] := UpCase(s[i]);
end;

var
F: Text;
s: string;
sortie: boolean;
begin
assign(F, 'c:\tp\exercice.txt');
rewrite(F);
sortie := false;

repeat
writeln('Entrez une chaine a ecrire dans le fichier');
readln(s);
up(s);
if (s = 'FIN') then
sortie := true
else
writeln(F, s);
until sortie = true;

close(F);
end.

Salut à tous,
C'est une solution élégante que t'as postée pirate
Je t'encourage.

B.NabiL