program WhileDoDemo;

uses
 Forms;

var
 I: Char;

begin
 while (I <> 'q') and (I <> 'Q') do
 begin
  Writeln('Wprowad znak: ');
  Readln(I);
 end;

 Writeln('Koniec');
 Readln;
end.