program RunErrorDemo;

uses
 Forms;

var
 I: Char;
 Count: Integer;

begin
 repeat
  Write('Wprowad znak: ');
  Readln(I);
  if (I = 'q') or (I = 'Q') then
   RunError(255);

 until FALSE;

 Readln;
end.