Лови. тут делов-то на 5 минут....

program game;
var
balance : integer;
box : byte;
answer : byte;
ch : char;
next : boolean;

begin
balance := 10;
randomize;
next := true;
repeat
box := random(10);
write('Загадано число от 0 до 10. Угадайте его: ');
readln(answer);
if answer=box
then begin
writeln('Бинго! Вы получаете 1 балл!');
inc(balance,1);
write('У вас ', balance, ' баллов. Продолжаем? (y/n): ');
readln(ch);
if ((ch='n') or (ch='N')) then begin
writeln('Ну чтож, до свиданья...');
next := false;
end;
end
else begin
writeln('Увы, не угадали. Вы теряете 1 балл!');
if balance = 1 then begin
writeln('К сожалению, у вас не осталось баллов. До свиданья.');
next := false;
end
else begin
dec(balance, 1);
write('У вас ', balance, ' баллов. Продолжаем? (y/n): ');
readln(ch);
if ((ch='n') or (ch='N')) then begin
writeln('Ну чтож, до свиданья...');
next := false;
end;
end;
end;
until not next;
end.