Создайте программу, играющую с пользователем в орлянку - Pascal

var r, w, l, c: integer;
begin
  writeln('Играем в орлянку. На Вашем счету 1 рубль, ставка 1 рубль,');
  writeln('0 - Вы выбираете "орёл", 1 - Вы выбираете "решка",');
  writeln('Другое число - конец игры.');
  r := 1;
  w := 0;
  l := 0;
  randomize;
  repeat
    write('Орёл или решка? ');
    readln(c);
    if (c = 0) or (c = 1)
      then begin
        if c = random(2)
          then begin
            writeln('Верно.');
            inc(w);
            inc(r)
          end
          else begin
            writeln('Неверно.');
            inc(l);
            dec(r)
          end;
      end;
    writeln('Выигрышей: ', w, ', проигрышей: ', l, ', состояние счёта: ', r)
  until (r = 0) or (c < 0) or (c > 1);
  write('Игра окончена.');
  if r = 0 then write(' Вы проиграли.');
  readln
end.