I think you should release the script first. Then later on add the arrays. It depends on how you want to use the player arrays.
Here are some examples.
Procedure DeclarePlayers;
Begin
HowManyPlayers := 2;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name := 'Username7';
Players[0].Pass := 'Password7';
Players[0].Nick := 'rna';
Players[0].Active:=True;
Players[0].String1 := 'Copper';
Players[0].String2 := 'Iron';
Players[0].String3 := 'Copper';
Players[0].Boolean1 := True;
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= StartPlayer;
Players[0].Name :='Username7';
Players[0].Pass :='Password7';
Players[0].Nick :='rna';
Players[0].Ore :='copper'; //OreType, 'iron', 'tin', 'copper', or 'coal'
Players[0].Active:=True;
//Add more playerarrays if needed.}
end;
procedure DeclarePlayers;
begin
HowManyPlayers:=6; //Keep at 6, don't change or else it won't work
NumberOfPlayers(HowManyPlayers);
Players[0].Name :=''; //Put your username
Players[0].Pass :=''; //Put your password
Players[0].Nick :=''; //Put a unique part of your name, 3-4 letters; Questions? SRL Manual
Players[0].Active:=False; //Leave unless not wanted to log in
end;