{
Readln, Writeln example
This example assumes you are compiling as a console application }
}

{$APPTYPE CONSOLE}

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
 begin
   Write('Enter a line of text: ');
   Readln(s);
   Writeln('You typed: ',s);
   Writeln('Hit <Enter> to exit');
   Readln;
 end; 
