Помогите с программой.

Пользователь вводит с клавиатуры сумму, которая у него есть. Далее"садится за рулетку". Программа спрашивает, какая ставка и на что ставит. пользователь. Ставка идет на конкретное число (от 1 до 36). Выпадающее число генерируется случайным образом в программе. Если. пользователь угадал, то его ставка увеличиваетсяив 36 раз и возвращает в его банк. Если. не угадал, то не возвращает. Далее пользователю выдается сообщение о том, сколько денег у него осталось и задается вопрос, хочет он продолжать или нет. Игра продолжается до тех пор, пока пользователь не захочет завершить игру или у него не закончатся деньги.

Begin

Writeln ('Введите имя игрока ') ;

var name : = ReadString;

Writeln ('Введите сумму ') ;

var sum : = ReadInteger;

while True do

begin

Writeln ('Введите ставку от ', 1, ' до ', sum) ;

var stavka : = ReadInteger;

if stavka > sum then

writeln ('Ставка не может превышать имеющиеся наличные')

else

begin

sum - = stavka;

Writeln ('Введите число от 1 до 36') ;

var number : = random (1, 36) ;

var getnumber : = ReadInteger;

if (getnumber 36) then

Writeln ('Неверное число. Вы потеряли ставку!')

else

if number = getnumber then

begin

Writeln ('Вы угадали! Вы получаете 36 х ставку') ;

sum + = (36 * stavka) ;

end

else

Writeln ('Не угадали. Вы потеряли ставку!')

end;

writeln;

Writeln ('Имя игрока ', name) ;

Writeln ('Текущие деньги ', sum) ;

writeln;

if (sum < = 0) then

begin

Writeln (name, ', Вы Проиграли! Надеюсь, Вам повезет в следующий раз') ;

break;

end;

end;

end.