Probleme beim String einlesen und übergeben

[Luckie]

Delphi-Quellcode:

    while not EOF(F) do
    begin
      ReadLn(F, s);
      CoD := s;
      writeln(s)  // <--- was ist das?!?!?
    end;
    CloseFile(F);
    writeln(cod);  // <-- und was ist das?!?!

Mach mal die Augen auf und kuck dir die Ausgabe mal genau.