Program Capture;
{Program written by Philip Smith to show data capture}

Uses WinCrt;
Var Sname:String;{Surname stored in string format - any keyboard characters}
Begin
     Write ('Please enter your Surname');
     Readln ( Sname );
     Write ( 'Your Surname is ',Sname );
     Readln;
     DoneWincrt;
End.