zeilenumbruch in text-file löschen

[ArminF]

Delphi-Quellcode:

procedure cDNAEingabe;                                                          {Eingabe der cDNA}

var
  f1, t1 : text;
  zeile  : string;

begin
  writeln ('Bitte speichern Sie die komplette cDNA-Sequenz');
  writeln ('OHNE ZEILENUMBRUCH in d:\armin\cNDA.txt');
  writeln ('Bitte Datei wieder schliessen und mit RETURN bestaetigen!');
  readln;
  writeln;
  assign (f1,'d:\ARMIN\codeX\cDNA.txt');
  rewrite (f1);
  assign (t1,'d:\ARMIN\codeX\cDNA_tmp.txt');
  reset (t1);
  while not eof(f1) do
    begin
      readln (f1,zeile);         {liest aus f1 eine Zeile und speichert in "zeile"}
      write(t1,zeile);           {schreibt in t1 den Inhalt von zeile}
    end;
  seek (t1,0);
  read (t1,cDNAgesamt);
  close (f1);
  close (t1);
end;

...bekomm ich als fehlermeldung "inkompatible typen" bei der zeile

seek (t1,0); kann es sein, dass seek bei textdateien nicht funktioniert?