program RepeatDemo;

uses
 Forms;

var
 I: Char;

begin
 repeat
  Writeln('Wprowad znak: ');
  Readln(I);
 until (I = 'q') or (I = 'Q');
 Writeln('Koniec');
 Readln;
end.