Казино pascal

var a,b,c,d:real;
begin
randomize;
writeln('Насколько пополнить баланс?');
read(a);
writeln('Ваш баланс ', a , ' рублей');
Writeln('Введите вашу ставку в рублях. В случае выигрыша ваша ставка умножится на 2');
readln(b);
a:=a-b;
writeln('Вам выпадет число 1 или 2?');
readln(c);
d:=random(1,2);
if c=d then a:=b*2 else a:=a;
if c=d then writeln('Поздравляю!Вы победили!Ваш баланс', a) else writeln('Вы проиграли, ваш баланс ', a);
 
end.

var
  a, b, c, d, pay: real;
 
begin
  randomize;
  a := 0;
  while true do
  begin
    writeln('Ваш баланс ', a, ' рублей');
    if a = 0 then 
    begin
      writeln('Насколько пополнить баланс?');
      read(pay);
      a += pay;
      writeln('Ваш баланс ', a, ' рублей');
    end;
    Writeln('Введите вашу ставку в рублях. В случае выигрыша ваша ставка умножится на 2');
    readln(b);
    if b > a then writeln('Ставка превышает баланс')
    else
    begin
      a := a - b;
      writeln('Вам выпадет число 1 или 2?');
      readln(c);
      d := random(1, 2);
      if c = d then a := b * 2 else a := a;
      if c = d then writeln('Поздравляю!Вы победили!Ваш баланс', a) else writeln('Вы проиграли, ваш баланс ', a);
    end;
  end;
end.