{
Read data coming from stdin console.
}
function ReadConsole(var Data:String):Boolean;
begin
 Data:='';
 ReadConsole:=False;
 if not eof and not IoError then begin
  readln(Data);
  if not IoError then begin
   ViewImp(Data);
   ReadConsole:=True;
  end else Data:='';
 end;
end;
