Pascal Крутая игра казино

[Rait]

Не судите строго, мое первое творение на Паскале которое я делал около 4-ёх часов, хотя большинство из этого времени я потратил на исправление багов и ошибок кода.

uses crt;
var bank, bet, karta, vinkarta, chislo,vinchislo:integer;
viborrejima:integer;
status, upmoney:string;
statusLevel1:integer;
statusLevel2:integer;
statusLevel3:integer;
skillyes1:integer;
skillyes2:integer;
skill1:integer;
label label_1; // если денег на счете нет / карточки
label label_1_1; // если денег на счете нет / числа
label label_2; // режим карточки
label label_3; // Выбор режима игры
label label_4_0; // режим "на число" / объяснение
label label_4_1; // режим "на число"
label label_5; // получение 5к
label label_5_5; // проверка
begin
statusLevel1:=0;
statusLevel2:=0;
statusLevel3:=0;
skillyes1:=0;
skillyes2:=0;

status:='Нищий';
textcolor(white);
writeln('Ваш текущий статус: ', status);
delay(1200);
label_5_5:
if (bank<=100) then
begin
label_5:
write('На вашем счету почти нет денег, чтобы их получить введите '); textcolor(lightblue); writeln('/upmoney'); textcolor(white);
readln(upmoney);
delay(1200);

if upmoney = '/upmoney' then
begin
writeln('На ваш счет было начисленно 5000р');
bank:= bank + 5000;
goto label_3;
end
else
begin
delay(600);
textcolor(red);
writeln('Неверная команда, попробуйте еще раз');textcolor(white);
goto label_5;
end;
end
else 
begin
goto label_3;
end;

label_3:
delay(1000);
writeln('Веберите режим игры: ( 1 - ставка на карточку) ( 2 - ставка на число)');
readln(viborrejima);

if (viborrejima = 1) then
begin
goto label_1;
goto label_2;
end;


if (viborrejima = 2) then
begin
goto label_4_0;
end;

if (viborrejima <> 1) or (viborrejima <> 2) then
begin
textcolor(red);
writeln('Такого режима игры не существует, повторите попытку..');textcolor(white);
goto label_3;
end;


label_1:
writeln('Ваша ставка: ');
readln(bet);

begin

if bet <= bank then
goto label_2;

 if bet > bank then
 delay(1000);
 textcolor(red);
writeln('У вас нет столько денег');textcolor(white);
goto label_1;


label_2:
delay(1000);
writeln('Выберите карточку (Красная = 1, Черная = 2): ');
readln(karta);
randomize;
vinkarta := random(1,2);

if karta = vinkarta then
begin
delay(1000);
bank := bank+bet;
textcolor(green);
writeln('Поздравляю, вы победили, на ваш счет было зачислено ', bet, 'р.');textcolor(white);
delay(1000);
skill1 := skill1 + 1;
textcolor(yellow);
writeln('Текущий баланс составляет : ', bank, 'р.');textcolor(white);

//навыки
if (skill1 = 2) and (skillyes1 <> 1) then
begin
skillyes1:=1;
textcolor(green);
writeln('Поздравляем, вы выполнили достижение "Комбо", на счет было начисленно 2000р');textcolor(white);
bank:=bank+2000;
end;

if (skill1 = 3) and (skillyes2 <> 1) then
begin
skillyes2:=1;
textcolor(green);
writeln('Поздравляем, вы выполнили достижение "Монстр", на счет было начисленно 5000р');textcolor(white);
bank:=bank+5000;
end;


//повышение статусов
if (bank >= 15000) and (statusLevel1<5) then
begin
statusLevel1:=5;
status := 'Состоятельный';textcolor(green);
writeln('Вы преодолели отметку в 15000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
delay(1500);
end;

if (bank >= 30000) and (statusLevel2<5)  then
begin
statusLevel2:=5;
status := 'Казиношник';textcolor(green);
writeln('Вы преодолели отметку в 30000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
delay(1500);
end;


if (bank >= 50000) and (statusLevel3<5) then
begin
statusLevel3:=5;
status := 'Богач';textcolor(green);
writeln('Вы преодолели отметку в 50000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
delay(1500);
end;


goto label_3;
end;

if karta <> vinkarta then
begin
bank := bank-bet; textcolor(red);
writeln('Увы, вы не угадали карту, с вашего счета списано ', bet, 'р.');textcolor(white);
skill1:=0; textcolor(yellow);
delay(1000);
writeln('Текущий баланс составляет : ', bank, 'р.');textcolor(white);
goto label_5_5;

if bank <=0 then
begin
writeln('Вы проиграли все деньги, игра окончена..');
exit;
end;
goto label_3;
end;

end;

label_4_0:
delay(1000);
writeln('Введите число на которое хотите сделать ставку (от 0 до 5): ');
readln(chislo);
randomize;
vinchislo := random(6);
label_1_1:
delay(800);
writeln('Ваша ставка: ');
readln(bet);

begin

if bet <= bank then
goto label_4_1;

 if bet > bank then
 delay(1000);
 textcolor(red);
writeln('У вас нет столько денег');textcolor(white);
goto label_1_1;

label_4_1:
if chislo = vinchislo then
begin
bank := bank+bet*5; delay(1000); textcolor(green);
writeln('Поздравляю вы победили, на ваш счет было зачислено ', bet*5, 'р.');textcolor(white);
skill1 := skill1 + 1; textcolor(yellow); delay(1000);
writeln('Текущий баланс составляет : ', bank, 'р.');textcolor(white);



//навыки
if (skill1 = 2) and (skillyes1 <> 1) then
begin
skillyes1:=1; delay(1000); textcolor(green);
writeln('Поздравляем, вы выполнили достижение "Комбо", на счет было начисленно 2000р');textcolor(white);
bank:=bank+2000;
end;

if (skill1 = 3) and (skillyes2 <> 1) then
begin
skillyes2:=1; delay(1000); textcolor(green);
writeln('Поздравляем, вы выполнили достижение "Монстр", на счет было начисленно 5000р');textcolor(white);
bank:=bank+5000;
end;


//повышение статусов
if (bank >= 15000) and (statusLevel1<5) then
begin
statusLevel1:=5;
status := 'Состоятельный'; delay(1000); textcolor(green);
writeln('Вы преодолели отметку в 15000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
end;

if (bank >= 30000) and (statusLevel2<5)  then
begin
statusLevel2:=5;
status := 'Казиношник'; delay(1000); textcolor(green);
writeln('Вы преодолели отметку в 30000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
end;

if (bank >= 50000) and (statusLevel3<5) then
begin
statusLevel3:=5;
status := 'Богач'; delay(1000); textcolor(green);
writeln('Вы преодолели отметку в 50000р, Ваш статус повышен, теперь вы ', status);textcolor(white);
end;

goto label_3;
end;

if chislo <> vinchislo then
begin
bank := bank-bet; textcolor(red);
writeln('Увы, вы проиграли. Победное число: ', vinchislo);textcolor(white);
skill1:=0; textcolor(yellow);
writeln('Текущий баланс составляет : ', bank, 'р.');textcolor(white);
goto label_5_5;

if bank <=0 then
begin
writeln('Вы проиграли все деньги, игра окончена..');
exit;
end;
goto label_3;
end;
end;
end.

Спойлер: Скриншот