Guess My Number

program GuessMyNumber;

{$mode objfpc}{$H+}

uses
crt, sysutils,
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

Var
answer,guess,cnt:integer;
game:string;

begin
repeat
repeat
clrscr();
writeln(' *Guess My Number* ');
writeln('please select A game');
writeln;
writeln('A) Guess out of 10');
writeln('B) Guess out of 100');
writeln('C) Guess out of 1000');
writeln;
write('Your Selection: ');
readln(game);
game:= Uppercase(game);
randomize
until (game = 'A') or (game = 'B') or (game= 'C') ;
clrscr();
if game= 'A' then
begin
answer:=random(10)+1;
writeln('Game 1-10');
end
else if game = 'B' then
begin
answer := random(100)+1;
writeln('Game 1-100');
end
else if game = 'C' then
begin
answer :=random(1000)+1;
writeln('Game1-1000');
end;
cnt:=0;
repeat
write('Please Enter a Guess');
readln(guess);
cnt:= cnt+1;

if guess < answer then
writeln (' TOO LOW! GUESS AGAIN')
else if guess > answer then
writeln('Too High! GUESS AGAIN')
else
writeln('You guessed right! In ',cnt,' guesses');
until guess= answer;
repeat
writeln;
write('Play Again Y/N: ');
readln(game);
game:= Uppercase (game);
until (game= 'Y') or (game='N');
Until game = 'N';
end.