[MarcosDG95]

Empezado por 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


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

Olvide poner que tengo un record para esto

Código Delphi [-]
type
Const
N=8;
Equipo= record
Nombre:String;
Resultado:Boolean;
difgol:integer;
numero:integer;
end;

Type
TTorneo= array [1..N div 2] of Equipo;
Type
TTorneo2= array [1..N div 2] of Equipo;