Неправильно работает if

Program Surgery;
uses CRT;
var
 CaseInc,CaseTemp,CaseBleed,CaseFrac,CaseText: integer; // SetStats procedure variables
 tool,temp,incisions,fractures,bleeding,status,IncNeeded: integer; // Direct stats
 FixLocked,Fixed: boolean; // Booleans related to Fixing it
 problem,outcome: string; // Stat texts
{SetStats: fast stat setting for cases}
Procedure SetStats(CaseInc,CaseTemp,CaseBleed,CaseFrac: integer;CaseText: string);
 begin
  if CaseInc>0 then begin
   IncNeeded:=CaseInc;
   Fixed:=False;
   end;
  temp:=CaseTemp;
  bleeding:=CaseBleed;
  fractures:=CaseFrac;
  problem:=CaseText
 end;
{StrStatus: turning Status integer value into string value}
Function StrStatus(status: integer): string;
 begin
  case status of
   0: StrStatus:='Awake';
   1,2: StrStatus:='Coming to';
   3..7: StrStatus:='Unconcious';
   8..10: StrStatus:='Near coma';
  end;
 end;
{StrBleeding: turning Bleeding integer value into string value}
Function StrBleeding(bleeding: integer): string;
 begin
  StrBleeding:='Patient is losing blood';
  case bleeding of
  0: StrBleeding:='';
  1: StrBleeding+=' slowly';
  2..5: StrBleeding+='';
  else StrBleeding+=' fast';
  end;
 end;
{START OF MAIN PROGRAM}
begin
 {Default Stats}
 incisions:=0;
 status:=0;
 bleeding:=0;
 fractures:=0;
 temp:=98;
 Fixed:=True;
 FixLocked:=True;
 {Intro & Credits}
 writeln('Text.');
 writeln('Text.');
 writeln('Text.');
 writeln;
 writeln('Press any key to continue...');
 ReadKey;
 ClrScr;
 {Surgery Selection}
 case random(10) of
 {Reminder: SetStats(needed incisions, base temp, base bleeding, base fractures, text}
  0: SetStats(0,102,0,0,'Patient is showing signs of bird flu');
  1: SetStats(0,105,0,0,'Patient is showing signs of monkey flu');
  2: SetStats(0,108,0,0,'Patient is showing signs of turtle flu');
  3: SetStats(0,98,1,1,'Patient broke his arm');
  4: SetStats(0,98,1,2,'Patient broke his leg');
  5: SetStats(1,98,0,0,'Patient wants a nose job');
  6: SetStats(1,98,0,0,'Patient has a lung tumor');
  7: SetStats(3,98,0,0,'Patient had a heart attack');
  8: SetStats(5,98,0,0,'Patient has a brain tumor');
  9: SetStats(2,103,0,0,'Patient is suffering from kidney failure');
  10: SetStats(3,105,0,0,'Patient has a broken spine');
  11: SetStats(3,103,0,0,'Patient is suffering from liver infection');
  end;
 {Surgery}
 repeat
  {Step 1: Status Screen}
  writeln(problem);
  writeln('Pulse: ???   Status: ',StrStatus(status));
  writeln('Temp: ',temp,'   Operation site: ???');
  write('Incisions: ',incisions);
  if fractures>0 then writeln('   Fractures: ',fractures) else writeln;
  if bleeding>0 then writeln(StrBleeding(bleeding));
  writeln(outcome);
  writeln;
  {Step 2: Asking and receiving input, changing stats}
  writeln('Antiseptic: 1   Anesthetic: 2   Antibiotics: 3   Splint: 4');
    write('Scalpel: 5      Stitches: 6     Sponge: 7        ');
  if (FixLocked=False and Fixed=False) then writeln('Fix it: 8') else writeln;
  write('Choose tool by its number: ');
  readln(tool);
  case tool of
   1: ; // WIP
   2: status+=7;
   3: temp-=random(1,3);
   4: fractures-=1;
   5: incisions+=1;
   6: begin if incisions>0 then incisions-=1;
      bleeding-=1; end;
   7: ; // WIP
   8: Fixed:=True;
  end;
  ClrScr;
  {Step 3: Checking for crucial changes}
  if (FixLocked=True and Fixed=False) and (IncNeeded<=incisions) then FixLocked:=False;
 until
  ((temp<100) and (fractures=0) and (incisions=0) and (bleeding=0) and Fixed=True)
  or ((temp>=110) or (status>11));
 if ((temp<110) and (fractures=0) and (incisions=0) and (bleeding=0) and Fixed=True) then
  writeln('You saved your patient!') else
  writeln('You failed to save your patient!');
 ReadKey;
end.

case random(10) of //от 0 до 9

10: SetStats(3,105,0,0,'Patient has a broken spine');
11: SetStats(3,103,0,0,'Patient is suffering from liver infection');

if (FixLocked=False) and (Fixed=False) then writeln('Fix it: 8') else writeln;

if not FixLocked and not Fixed then writeln('Fix it: 8') else writeln;

if not (FixLocked and Fixed) then writeln('Fix it: 8') else writeln;

if not (FixLocked or Fixed) then writeln('Fix it: 8') else writeln;

if (FixLocked or Fixed) then writeln else writeln('Fix it: 8');