Не работают действия в игре

// Мана всегда 50
// Начальное здоровье - 100
// Начальные параметры - 10, потом сделаю опыт
// Здоровье врага пока что 150, сила 8, защита 9, враг пока один
// При лечении вычитается 10 маны
 
program one;
 
uses
   crt;
 
var
   hp, mp: integer; //Здоровье, Мана
   dmg, heal: integer; //Урон = (pwr*str/hp)*10 и лечение
   hlt, pwr, spc, str: integer; // Характеристики: здоровье, атака, особое действие, защита
   hp1, att1, str1: integer;//Текущее Здоровье, и атака врага, постоянная защита
   answer: string;// Для ответа пользователя
   turn: boolean;// Чей ход. 0 - твой, 1 - врага
 
procedure beginning;
begin
   pwr := 10;
   str := 10;
   spc := 10;
   hp := 100;
   mp := 50;
   hp1 := 150;
   att1 := 8;
   str1 := 9;
   turn := false;
   
end;
 
procedure healself;
begin
   if (mp > 10) then
   begin
      heal := spc div (hp div (100));
      mp := mp - 10;
      hp := hp + heal;
      heal := 0;
   end
   else writeln('Недостаточно маны!');
end;
 
procedure tutorial;
 
begin
   writeln('Привет. Это ты:');
   writeln('(*o*)');
   writeln(' (█) ');
   writeln(' / \ ');
   writeln('Победи своего тренировочного врага!');
   writeln('Для выбора опции спиши её прямо - то есть, "Удар", "Лечение". Без кавычек, соблюдая большую букву');
   writeln('Всё понятно?(Напиши "Да/Нет")');
   readln(answer);
   while answer <> 'Да' do
   begin
      writeln('Хм? Прочитай ещё раз и попробуй снова. Всё понятно? Напиши "Да/Нет"');
      readln(answer);
   end;
   clrscr;
end;
 
procedure DrawInterface;//Соблюдать расположение серединных строк!
begin
   clrscr;
   writeln('////////////////////////////////////////////////////////////////////////////////');
   writeln('         (О_О)                               Враг: Первый враг', '                 ');
   writeln('          <0>                                Здоровье:', hp1, '                     ');
   writeln('          / \                                                                     ');
   writeln('                                                                                  ');
   writeln('    Твоё здоровье:', hp, '                                                          ');
   writeln('    Твоя мана:', mp, '                                                              ');
   writeln('    Что ты будешь делать? Удар/Лечение                                            ');
   writeln('////////////////////////////////////////////////////////////////////////////////');
end;
 
procedure CalcDamage;
begin
   dmg := (pwr * str div (hp)) * 10;
end;
 
procedure Eattack;
begin
   dmg := (att1 * str1 div (hp1)) * 8;
   hp := hp - dmg;
   write('Враг наносит ', dmg, ' урона! Твой ход!');
   turn := false;
   
end;
 
procedure YourTurn;
begin
   readln(answer);
   if answer = 'Удар' then 
   begin
      CalcDamage;
      hp1 := hp1 - dmg;      
   end
   else if answer = 'Лечение' then 
   begin
      healself;
      writeln('Ты успешно вылечился!');
   end
   
   else writeln('Ты неправильно написал выбор! А говорил, что прочитал правила! Пропусти ход! Да ладно, мне просто лень делать цикл');
   turn := true;
end;
 
begin
   beginning;
   tutorial;
   DrawInterface;
   while (hp <> 0) or (hp > 0) or (hp1 <> 0) or (hp1 > 0) do
      if ord(turn) = 0 then YourTurn else Eattack;
end.