Un exemple

Le programme suivant lit un fichier d'entiers et calcule la somme de tous les éléments de ce fichier.

program lire;

var fich : file of integer;
    sum : integer;

begin
     reset(fich,'lefichier');
     sum:=0;
     while not(eof(fich)) do
       begin
          sum:=sum+fich^;
          get(fich);
       end;
     writeln('La somme des elements du fichier est', sum);
end.