Dans l'exemple suivant, on souhaite que l'utilisateur puisse entrer un texte au clavier et que ce texte soit sauvegardé dans un fichier. L'utilisateur indiquera que le texte est terminé en tapant ‘$' sur une seule ligne.
program MON_TEXTE;
var
f: Text;
s: string;
begin
assign(F, 'montexte.txt' );
rewrite(f);
writeln(' Tapez un texte et terminez par $' );
readln(s) ;
while (s <> '$') do
begin
writeln(f,s);
readln(s);
end;
close(f);
end.