Source : developpez.com

Exercice 

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.

Correction : en Pascal :

program file1;
uses crt;

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
  clrscr;

  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);
  readln;
end.