Ошибка: Type of expression must be Boolean.

[zvo]

Здравствуйте!
Я пишу игру "Сапёр" по коду "Сапёр 2002".
Но у меня появляется ошибка, которая гласит:
В Unit1, в 173 строке, type of expression must be BOOLEAN
([Error] Unit1.pas(173): Type of expression must be BOOLEAN.)
Вот код, где он выдаёт ошибку: (строки #139-#177)

procedure NewGame();
var
 row, col: Integer;
 n: Integer;
 k: Integer;
begin
 for row := 1 to MR do
  for col := 1 to MC do
   Pole[row,col] := 0;
   Randomize();
   n := 0;
   repeat
    row := Random(MR) + 1;
    col := Random(MC) + 1;
    if (Pole[row,col] <> 9) then
     begin
      Pole[row,col] := 9;
      n := n + 1;
     end;
   until
    for row := 1 to MR do
    for col := 1 to MC do
    if (Pole[row,col] <> 9) then
     begin
      k := 0;
      if Pole[row - 1,col - 1] = 9 then k := k + 1;
      if Pole[row - 1,col] = 9 then k := k + 1;
      if Pole[row - 1,col + 1] = 9 then k := k + 1;
      if Pole[row,col - 1] = 9 then k := k + 1;
      if Pole[row,col + 1] = 9 then k := k + 1;
      if Pole[row + 1,col - 1] = 9 then k := k + 1;
      if Pole[row + 1,col] = 9 then k := k + 1;
      if Pole[row + 1,col + 1] = 9 then k := k + 1;
      Pole[row,col] := k;
     end; //Вот здесь ошибка
    Status := 0;
    nMin := 0;
    nFlag := 0;
end;

Отчего это может быть? Про путаницу = и := знаю, всё проверял.

[evg_m]

until условие ;

until
for i:=1 to ...
.....
end; //Вот здесь ошибка //здесь кончается оператор для задания условия по вашему коду как его понимает транслятор
условие требует boolean, НО for такого значения не имеет!