Konsolenanwendung Eingabe lesen bis EOF

[MisterNiceGuy]

Hi, ich habe gerade eine Konsolenanwendung geschrieben und möchte die komplette Eingabe mit Read() lesen.
Ich dachte erst, dass folgender Code die Lösung wäre:

Delphi-Quellcode:

var c:char;
begin
while not eof do read(c);
end.

Hier wird zwar jedes Zeichen eingelesen, das Programm aber nicht beendet.
Was mache ich falsch?