"Рулетка" на паскале

[1nsd3d]

Начал изучать паскаль совсем недавно и хотел попробовать сделать что-то похожее на "казино". Первую самую лёгкую часть написал, а как сделать цикл, чтоб человек мог дальше продолжать играть я не понимаю может кто-нибудь объяснить? Если кому нужен недокод,то оставлю и скажите в чём там есть ошибки(Если вам не лень).

var a,b,c,d,e,f,i:integer;
    g:string;
begin
  writeln('Ваш начальный баланс = 100 грiвнi');
  a:=100;
  writeln('Вы хотите крутить рулетку?');
  readln(g);
  if g='Да' then
  begin
    write('Введите сумму ставки = ');
    readln(c);
    if c > a then
    begin
      writeln('У вас на счёте недостаточно денег');
      exit;
    end;
    b:=random(1,2);
    writeln('Если выпадет 1, то вы проиграли, а если 2, то ваша сумма умнажается.');
    writeln('Рулетка крутится...');
    writeln('Выпало число ',b);
    if b=2 then
    begin
      e:=c*2;
      f:=a+e;
      writeln('Вы выйграли ',e,' грiвнi. Ваш баланс = ',f,' грiвнi');
    end
    else
    begin
      i:=a-c;
      writeln('Вы проиграли ',c,' грiвнi.Ваш баланс = ',i,' грiвнi');
    end;
  end
  else
    exit;
end.