program BreakDemo;

uses
 Forms;

var
 I: Char;

begin
 I := ' ';
 While TRUE Do
 begin
  Write('Wprowad znak: ');
  Readln(I);
  if (I = 'q') or (I = 'Q') then
    Break;
 end;

 Readln;
end.