Pascal: Programme simple résultat anarchique

   f	    : file of integer;
   n	    : integer;
begin
   assign(f,'fichier.txt');
   reset(f);
   while not eof(f) do
   begin
      read(f,n);
      writeln(n);
   end;
   writeln('end');
   close(f);
end.

0 1 2 3 4 5 6 7 8 9 10
10 9 8 7 6 5 4 3 2 1 0

8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
12337
12554
8240
8249
8248
8247
8246
8245
8244
8243
8242
8241
2608
end