Встречено var, а ожидался идентификатор

program ex;
uses crt;
type
 node=^zapis;
 zapis=record
     ocenka:integer;
     left,right:node;
  var
  uk:node; //ссылочная переменная
  procedure create_tree(uk:node; n:integer);
  begin
   if n<5 then
    begin 
     new(uk^.left);
     create_tree(uk^.left, n+1);
     new(uk^.right); 
      create_tree(uk^.right, n+1);
     end
    else uk^.ocenka:=Random(20);
    end;
     function Minimax(uk:node; n,x:integer):integer;
      var left,right,k:integer;
       begin 
         if n<5  then
          begin
           left:=Minimax(uk^.left,n+1, x-(20 div n+1)+n);
           right:=Minimax(uk^.right, n+1,  x+(20 div  n)-n);
           if n mod 2=0 then
            if left<right then k:=left else k:=right
           else
            if left<right then k:=right else k:=left;
            end
            else k:=uk^.ocenka;
            gotoxy(x,n*4);
            write(k);
            Minimax:=k;
            end;
            begin
            Randomize;
            clrscr;
            new(uk);
            create_tree(uk,1);
            Minimax(uk,1,40);
            end.

zapis=record
        ocenka:integer;
        left,right:node;
        end;
var

case n of
1:b:=2;
2:b:=3;
end;