for ren:=1 to 3 do
  for col:=0 to 4 do
   begin
     if arr[ren,col]=666 then
     begin
 
     if (arr[ren,col+1]<>666) and (col<=3) then arr[ren,col+1]:=arr[ren,col+1]+1;
     if (arr[ren,1-1]<>666) and (col)=)2 then arr[ren,col-1]:=arr[ren,col-1]-1;
     end;
   end;
end;
 
 
 
if (arr[ren,1-1]<>666) and (col)=)2 then arr[ren,col-1]:=arr[ren,col-1]-1;
 
 
está mal hecha la condicion: 
 and (col)=)2 
Deberia ser and (col=2) o (col >= 2) o (col <=2);
Si coriges eso, compila perfectamente.