控制台读写    
program Project1;

{$APPTYPE CONSOLE}

var
  str: string;
begin
  Writeln('请输入:');
  Readln(str);
  Writeln('你输入的是:' + str);
  Readln;
end.