SRL Archive - OSR Help

I have a script almost complete but it gets stuck when inserting the pin… It says InPin Out of Range

InPin(Players[CurrentPlayer].Pin);

and in the declare players I have

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := ''
Players[0].Pass := ''
Players[0].Nick := ''
Players[0].Pin  := '1234'
Players[0].Active := True
end;   

Why is it giving an error?

Did you call DeclarePlayers in your script?
Show the whole script?
Also add semicolons to every of your statements that are ending.