geht das mit standard in, nicht normal so...
Delphi-Quellcode:
program mist(input, output);
{$APPTYPE CONSOLE}
uses
SysUtils;
var
s: string;
begin
while not eof(input) do
begin
readln(input, s);
writeln(output, '> das ist ''n mist, gelle: ', s );
end;
end.