Un exemple

Le programme suivant crée puis stocke un certain nombre de valeurs dans un fichier d'entiers.

program ecriture;

var fich : file of integer;
    x : integer;

begin
    rewrite(fich,'lefichier');
    writeln('entrez des nombres entiers pour arreter entrez 0');
    readln(x);
    while(x<>0) do
      begin
         fich^:=x;
         put(fich);
         writeln('x=?');
         readln(x);
      end;
end.