also bei mir funktioniert das ganze problemlos ... wo lliegt das problem, bei deiner hausaufgabe....??
Delphi-Quellcode:
program mist;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f: text;
s: string;
begin
assign(f, 'pj-10');
reset(f);
while not eof(f) do
begin
readln(f, s);
writeln(s);
end;
close(f);
readln;
end.
Edit: mal noch die datei hinzufüg: