program ExitDemo;

uses
 Forms;

var
 I: Char;

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

 Readln;
end.