program RepeatUntil;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var
  sel:char;
  quit:bool;

{$R *.res}

begin
  repeat
    writeln('Do you like "A" or "B"?  ');
    readln(sel);
    quit = false;
    case UpperCase(sel) of
    'A': begin
      writeln('"A" is for Atomic Arachnids');
      quit = true;
    end;
    'B': begin
      writeln('"B" if for Ballistic Bunnies');
      quit = true;
    end;
    else: begin
      writeln('You''re a ninny!');
      end;
  until (quite = true);

  end;
  writeln;
  writeln;
  writeln('Press <ENTER> to quit.');
  readln;
end.