Laden/Speichern

[Razor90]

Hab jetzt noch ein anderes Problem... will meinen Array speichern/Laden.....das speichern klappt soweit, nur beim Laden gibts Probleme. Seht ihr nen Fehler?

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var  a:integer;
     T:Textfile;
begin
 Assignfile(T,'C:\Text.dat');
 Rewrite(T);
 a:=0;
 writeln(T,aa);
 repeat
 a:=a+1;
 writeln(T,person[a].Name);
 writeln(T,person[a].Vorname);
 writeln(T,person[a].Geschlecht);
 writeln(T,person[a].Alter);
 writeln(T,person[a].Beruf);
 writeln(T,person[a].Hobby);
 writeln(T,person[a].Kartei);
 until a=aa;
 closefile(T);
 end;


procedure TForm1.Laden1Click(Sender: TObject);
var a:integer;
    T:Textfile;
begin
 assignfile(T,'C:\Text.dat');
  reset(T);
  readln(aa);
  a:=0;
  repeat
  a:=a+1;
  readln(T,person[a].Name);
  readln(T,person[a].Vorname);
  readln(T,person[a].Geschlecht);
  readln(T,person[a].Alter);
  readln(T,person[a].Beruf);
  readln(T,person[a].Hobby);
  readln(T,person[a].Kartei);
  until a=aa;
  closefile(T);
  if not fileexists('C:\Text.dat') then begin
  showmessage('Datei nich vorhanden');
  end;

    end;