Текстовая игра: Непонятная ошибка

procedure Battle1(var act: char; var monhel, mondmg, hel, maxhel, dmg, hlng, mp, a, b, c, lvl: integer);
begin
  while (hel>0) or (monhel>0) do
  begin
    writeln('<<-----New Round----->>');
    Writeln('What shall you do? Attack(-), Heal(+), Magic(*)');
    readln(act);
    if act = '-' then
    begin
      a := random(3);
      if a = 0 then writeln('You miss!')
      else
        monhel := monhel - dmg;
    end;
    
    if act = '*' then
    begin
      writeln('Magic Book is opened. Choose spell:');
      write('Fireball(1),Extrapower(2), Poison(3)');
      read(b);
      if b = 1 then
      begin
        monhel := monhel - mp;
        hel := hel - 10;
      end;
      if b = 2 then
      begin
        dmg := dmg * 2;
        hel := hel - 15;
      end;
      if b = 3 then
      begin
        for i:=1 to (lvl+1) do
        monhel := monhel - (mp div 2);
    end;
    
    if act = '+' then
    begin
      hel := hel + hlng;
      if hel > maxhel then
      begin
        writeln('Health is maximum!');
        hel := hel - hlng
      end
      else
      begin
        writeln('You healed yourself.');
      end;
    end;
    
    writeln('Enemy have attacked you!');
    c := random(3);
    if c = 0 then writeln('Enemy missed.')
    else
      hel := hel - mondmg;
    writeln('  Your Health left:', hel);
    writeln('  Monster Health left:', monhel);
    
  if hel <= 0 then
    writeln('  Sorry, you died =( ')
  else
    writeln('  You win!');
end;
end;