1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
 f: file of integer;
 i: integer;
begin
   rewrite(f,extractfilepath(paramstr(0))+'foo.txt');
   reset(f);

  for i := 1 to 100 do
     write(f,i);

  while not eof(f) do
     read(f,i);
  
  closefile(f);
  writeln(i);

readln;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  for i := 1 to 100 do
     write(f,i);

  // jetzt steht i auf 101 (genauer: ist undefiniert)

  // diese Schleife wird nun nie durchlaufen, da eof schon erreicht ist. 
  // Du mußt die Datei erst mal mit Reset zurücksetzen oder Schliessen und neu aufmachen
 
  while not eof(f) do
     read(f,i);

  closefile(f);

  // gibt bei Dir den Stand nach der For-Schleife aus! 
  writeln(i);