Cette fois le texte est stocké dans le fichier « montexte.txt » et le programme doit l'afficher à l'écran.
program Lecture;
var
f: Text;
s: string;
begin
assign(f, 'montexte.txt' );
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.