Ожидался идентификатор

procedure BotStep;
  procedure x(row, col, b : Integer);
  begin
    a[row, col] := b;
    WriteLn('Ход компьютера: ', coord(row, col));
  end;
begin
  var v := Step mod 2 + 1; // У человека на предыдущем ходу было такое значение
  var b := (Step + 1) mod 2 + 1; // А бот этим ходом должен поставить
  // Если бот должен выиграть
  // Главная диагональ
  if (a[0,0] = b) and (a[1,1] = b) and (a[2,2] = 0) then begin x(2,2,b); Exit; end;
  if (a[0,0] = b) and (a[1,1] = 0) and (a[2,2] = b) then begin x(1,1,b); Exit; end;
  if (a[0,0] = 0) and (a[1,1] = b) and (a[2,2] = b) then begin x(0,0,b); Exit; end;
  // Побочная диагональ
  if (a[0,2] = b) and (a[1,1] = b) and (a[2,0] = 0) then begin x(2,0,b); Exit; end;
  if (a[0,2] = b) and (a[1,1] = 0) and (a[2,0] = b) then begin x(1,1,b); Exit; end;
  if (a[0,2] = 0) and (a[1,1] = b) and (a[2,0] = b) then begin x(0,2,b); Exit; end;
  // Горизонтали
  for var row := 0 to 2 do
    begin
      if (a[row,0] = b) and (a[row,1] = b) and (a[row,2] = 0) then begin x(row,2,b); Exit; end;
      if (a[row,0] = b) and (a[row,1] = 0) and (a[row,2] = b) then begin x(row,1,b); Exit; end;
      if (a[row,0] = 0) and (a[row,1] = b) and (a[row,2] = b) then begin x(row,0,b); Exit; end;
    end;
  // Вертикали
  for var col := 0 to 2 do
    begin
      if (a[0,col] = b) and (a[1,col] = b) and (a[2,col] = 0) then begin x(2,col,b); Exit; end;
      if (a[0,col] = b) and (a[1,col] = 0) and (a[2,col] = b) then begin x(1,col,b); Exit; end;
      if (a[0,col] = 0) and (a[1,col] = b) and (a[2,col] = b) then begin x(0,col,b); Exit; end;
    end;
  
  // Если человек может выиграть
  // Главная диагональ
  if (a[0,0] = v) and (a[1,1] = v) and (a[2,2] = 0) then begin x(2,2,b); Exit; end;
  if (a[0,0] = v) and (a[1,1] = 0) and (a[2,2] = v) then begin x(1,1,b); Exit; end;
  if (a[0,0] = 0) and (a[1,1] = v) and (a[2,2] = v) then begin x(0,0,b); Exit; end;
  // Побочная диагональ
  if (a[0,2] = v) and (a[1,1] = v) and (a[2,0] = 0) then begin x(2,0,b); Exit; end;
  if (a[0,2] = v) and (a[1,1] = 0) and (a[2,0] = v) then begin x(1,1,b); Exit; end;
  if (a[0,2] = 0) and (a[1,1] = v) and (a[2,0] = v) then begin x(0,2,b); Exit; end;
  // Горизонтали
  for var row := 0 to 2 do
    begin
      if (a[row,0] = v) and (a[row,1] = v) and (a[row,2] = 0) then begin x(row,2,b); Exit; end;
      if (a[row,0] = v) and (a[row,1] = 0) and (a[row,2] = v) then begin x(row,1,b); Exit; end;
      if (a[row,0] = 0) and (a[row,1] = v) and (a[row,2] = v) then begin x(row,0,b); Exit; end;
    end;
  // Вертикали
  for var col := 0 to 2 do
    begin
      if (a[0,col] = v) and (a[1,col] = v) and (a[2,col] = 0) then begin x(2,col,b); Exit; end;
      if (a[0,col] = v) and (a[1,col] = 0) and (a[2,col] = v) then begin x(1,col,b); Exit; end;
      if (a[0,col] = 0) and (a[1,col] = v) and (a[2,col] = v) then begin x(0,col,b); Exit; end;
    end;
 
  // Ну и ход рандомом
  var Ok := False;
  repeat
    var(row, col) := (Random(3), Random(3));//здесь ошибка
    Ok := a[row, col] = 0;
    if Ok then x(row, col, b);
  until Ok;
end.

end;//добавить
begin//добавить
  // Ну и ход рандомом
  var Ok := False;
  repeat