Можете вот это сделать писать только в if else

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 < 1) or (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.

Под блокнотом подразумевается стандартный Windows Notepad. Он прост как дважды два, и таким и задумывался. Предназначен для просмотра и возможно редактирования простых текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд
Им можно открыть и посмотреть текстовое представление любого файла, хотя большие файлы он не откроет (зависнет или упадет) и может иметь проблемы с кодировками.
Имеет простейшие функции типа поиск, замена, переход. А так же открыть и сохранить файл.

Если часто приходится иметь дело с текстовыми файлами предназначеными в первую очередь для чтенье компьютером типа программных кодов, скриптов и тд, то рекомендуется использовать специализированные блокноты типа Notepad++, Sublime Text, Vim, Akelpad и тд

MSO Word предназначен для создания, просмотра, редактирования текстовых документов (не просто текстовых файлов) предназначеных в первую очередь для просмотра людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее и прочее
Можно редактировать и простые текстовые файлы, но это не удобно