Dateien auslesen

[delphi_noob666]

Code:

var f1 : Textfile;
    s : String;
    i, j, k, l, m, q, r : Integer;
    str : boolean;
begin
      r:=1;
     j := 0;
  AssignFile(f1,'..\Saison.txt');
  Reset(f1);
  if FileExists('..\Saison.txt') then begin
     While not EOF(f1) do begin

das sind die zeilen davor