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

procedure TFFile_Uebung.BErste_StelleClick(Sender: TObject);
var f,g: file of integer;
    zahl: integer;
begin
  AssignFile(f,'Daten.dat');
  AssignFile(g,'Daten.dat');
  Rewrite(f);
  Reset(f);
  Reset(g);
  zahl:=StrToInt(EErste_Stelle.text);
  write(f,zahl);
  while not eof(g) do
  begin
    read(g,zahl);
    write(f,zahl);
  end;
  truncate(f);
  CloseFile(f);
  CloseFile(g);
  BLaden.click;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TFFile_Uebung.BErste_StelleClick(Sender: TObject); 
var g: file of integer;
    zahl, Dateilaenge,i,zw : integer;
begin
  AssignFile(g,'Daten.dat');
  zahl:=StrToInt(Form1.EErste_Stelle.text);

  If not(FileExists('Daten.dat')) then
    ReWrite(g)
  else
    ReSet(g);

  Dateilaenge := Filesize(g);  // Dateigröße ermitteln
  if Dateilaenge = 0 then
   Write(g,Zahl)              // Ersten Eintrag schreiben
  else begin
    For  i := Dateilaenge downto 1 do begin
      Seek(g,i-1);            // Position Vor Dateiende Setzen
      Read(g,zw);            // Integer lesen
      write(g,zw);            // Integer Schreiben
    end;
    Seek(g,0);                // Erste Position 
    Write(g,Zahl);           // Integer Schreiben
  end;
 CloseFile(g);
 BLaden.click; 
end;					

1:
2:
3:
4:

...
  Position := Dateilaenge - Sollpos;
  Seek(g,Position);
...