{
Process standard input...
while StdIn_Readln(StdIn_Line) do StdIn_Process(StdIn_Line);
}
{
Read string line from standard input.
}
function StdIn_Readln(var Data:string):boolean;
begin
 Data:='';
 if not IoError then
 if not Eof then Readln(Data);
 if IoError then Data:='';
 StdIn_Readln:=Length(Data)>0;
end;
