String, Integer-inkompatible Type. Wo liegt mein Fehler?

[gathering]

Delphi-Quellcode:

program Gehalt1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TGehaltsliste = RECORD          //Record definieren
    name : STRING[20];
    vorname : STRING[20];
    gebdatum : STRING[10];
    gehalt : STRING[10];

  END;


var
  person, person1, person2, person3 : TGehaltsliste;
  fp: File OF TGehaltsliste;



FUNCTION MaxGehalt(dateiname:string):STRING;
  VAR gehalt:INTEGER; fp:FILE OF TGehaltsliste; person:TGehaltsliste;
  BEGIN
    gehalt:=0;
    ASSIGN(fp, dateiname);
    Reset(fp);
    While NOT Eof(fp) DO Begin
      Read(fp, person);
      If person.gehalt > gehalt THEN gehalt:=person.gehalt; //In dieser Zeile zeigt er mir beim compilen den Fehler an
    End;
    Close(fp);
    result:=gehalt;
    writeln('höchstes Gehalt bezieht:');
    writeln(fp, gehalt);
  END;

begin
  person1.name:= 'Meier';
  person1.vorname:= 'Johan';
  person1.gebdatum:= '11.11.1966';
  person1.gehalt:= '2500';

  person2.name:= Müller;
  person2.gebdatum:= '12.09.1976';
  person2.gehalt:= '2100';

  person3.name:= 'Blöd';
  person3.vorname:= 'Hein';
  person3.gebdatum:= '07.03.1980';
  person3.gehalt:= '2700';

  writeln (person1.vorname, ' ', person1.name, ' ', person1.gebdatum, ' ', person1.gehalt);
  writeln (person2.vorname, ' ', person2.name, ' ', person2.gebdatum, ' ', person2.gehalt);
  writeln (person3.vorname, ' ', person3.name, ' ', person3.gebdatum, ' ', person3.gehalt);

  assign (fp, 'gehaltsliste1.txt');   //Variable mit Dateiname verbinden
  rewrite (fp);                          //Datei wird immer wieder neu angelegt


  write (fp, person1);
  write (fp, person2);
  write (fp, person3);
  write (fp, inttostr(person.gehalt));
  closefile (fp);           //Schließen der Datei
                         

  
  readln;

end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]