program HaltDemo;

uses
 Forms;

var
 I: Char;

begin
 repeat
  Write('Wprowad znak: ');
  Readln(I);
  if (I = 'q') or (I = 'Q') then
   Halt;
 until FALSE;

 Readln;
end.