Ошибка "record, object of file type required" при компиляции

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
 hod : integer;
 pole: array[1..3,1..3] of integer;
 koord1 : integer;
 koord2 : integer;
 konec : boolean;
procedure opredelenie_hoda;
 begin
  hod := random(2);
 end;
procedure hod_igroka;
 begin
 readln(koord1);
 readln(koord2);
  if pole[koord1, koord2] = 0 then
 pole[koord1, koord2] := 1
  else
   writeln ('try again, occupied');
   readln;
   hod_igroka;
 end;
procedure hod_kompa;
 begin
  koord1 := 1 + random(3);
  koord2 := 1 + random(3);
   if pole[koord1, koord2] = 0 then
    pole [koord1, koord2] := 2
    else
    hod_kompa;
 end;
procedure analiz;
var
 var1, var2, var3, var4, var5, var6, var7, var8 : integer;
  begin
   var1 := pole[1,1]+pole[1,2]+pole[1,3];
   var2 := pole[2,1]+pole[2,2]+pole[2,3];
   var3 := pole[3,1]+pole[3,2]+pole[3,3];
   var4 := pole[1,1]+pole[2,1]+pole[3,1];
   var5 := pole[1,2]+pole[2,2]+pole[3,2];
   var6 := pole[1,3]+pole[2,3]+pole[3,3];
   var7 := pole[1,1]+pole[2,2]+pole[3,3];
   var8 := pole[3,1]+pole[2,2]+pole[1,3];
    case var1 of
    3 :  begin writeln ('you win!'); konec := true; end;
    6 :  begin writeln ('you lose'); konec := true; end;
    else
      case var2 of
      3 : begin writeln ('you win!'); konec := true; end;
      6 : begin writeln ('you lose'); konec := true; end;
      else
       case var3 of
       3 :  begin writeln ('you win!'); konec := true; end;
       6 :  begin writeln ('you lose'); konec := true; end;
       else
        case var4 of
         3 :  begin writeln ('you win!'); konec := true; end;
         6 :  begin writeln ('you lose'); konec := true; end;
        else
         case var5 of
         3 :  begin writeln ('you win!'); konec := true; end;
         6 :  begin writeln ('you lose'); konec := true; end;
         else
          case var6 of
          3 :  begin writeln ('you win!'); konec := true; end;
          6 :  begin writeln ('you lose'); konec := true; end;
          else
           case var7 of
           3 :  begin writeln ('you win!'); konec := true; end;
           6 :  begin writeln ('you lose'); konec := true; end;
           else
            case var8 of
           3 :  begin writeln ('you win!'); konec := true; end;
           6 :  begin writeln ('you lose'); konec := true; end;
 
  end;
 
begin
 opredelenie_hoda;
  if hod = 0 then
   begin
   repeat
    begin
     hod_igroka;
     hod_kompa;
     analiz;
    end;
   until konec = true;
    readln
    end
   else
    begin
    repeat
     begin
      hod_kompa;
      hod_igroka;
      analiz;
     end;
    until konec = true;
     readln;
      end;
 end.

[B]case[/B] selectorExpression of
 
  caseList1: statement1;
  ...
  caseListn: statementn;
[B]else[/B]
  statement;
[B]end[/B]