program hold;

var
c : char;

begin

  repeat		       
    write('Press X key to continue.');
    read(c);
  until ( c = 'x' ) or ( c = 'X' )

end.
.