filepointer an eoln

[flinx]

Probier mal:

 var
  f: file of char;
  w1,w2,w3,w4:char;
begin
        w1:='e';
        w2:='n';
        w3:='d';
        Assign(f, 'tpc2.exe');
        Reset(f);
        While not Eof(f) do          
        Begin                          
          Read(f,w4);                   
        end;                           
        Write(f, w1,w2,w3);
        Close(f);
end.