missing operator or semicolon

[MarcosDG95]

Buenas tardes a todos, soy bastante nuevo en el foro, estoy teniendo un problema con mi codigo Delphi, estoy desarrollando un programa que cargue nombres de equipos para mas tarde hacer un sistema round-robin. El problema es que no me compila el programa por esta linea

Código Delphi [-]
procedure TForm1.btn2Click(Sender: TObject);
Var
value,value2:string;
primero,ultimo,sgte,ante,contador,a,b:Integer;
orden:TTorneo;
orden2:TTorneo2;
Cambio,Cambio2:Boolean;

begin //Simulo mi botón START.
ultimo:= (N div 2);
randomize
//if orden[1].Nombre <> '' then
  //begin
    //Showmessage('El torneo ya comenzó');
    //exit;
  //end;
  for a:=1 to N div 2 do //ERROR MISSING OPERATOR OR SEMICOLON
    begin
    repeat
      value:= inputbox('Ingrese nombre', 'equipos participantes','.');
    until value <> '';
      orden[a].Nombre:=value;
      strngrd1.cells[a,0]:=value;
    end;
  For b:=1 to N div 2 do// ERROR MISSING OPERATOR OR SEMICOLON
    begin
    repeat
      value2:= inputbox('Ingrese nombre', 'equipos participante','.');
    until value2<> '';
      orden2[b].Nombre:=value2;
        strngrd2.cells[b,0]:=value2;
    end;
end;

Si alguien me puede ayudar con este error que no logro ver estare mas que agradecido, desde ya muchas gracias