Identifier Problem, I really can't get it :(

[dudesareus]

Well I've been working for quite a while on my script and I still can't seem to figure it out :(
My procedure as you can see is the one having the problem, Identifier Expected.

Procedure dropping;
begin
if (not (LoggedIn)) then
LoginPlayer;
HighestAngle;
end;
begin
if (Players[CurrentPlayer].Boolean1=True) then
GameTab(4);
DropTo(1, 28);
else
if (Players[CurrentPlayer].Boolean1=False) then
begin
GameTab(4);
DropTo(2, 28);
end;
end;

Error : Identifier expected in script

Please help if possible.

If you can't get it with only that part of the script, heres the whole thing;

program DudesPowerMiner;
{.include SRL\SRL.scar}

/////////////////////////// Constants
const
Rock1 = 8816272; //Tin Rock Colour
Rock2 = 3823995; //Copper Rock Colour
Rock3 = 2701145; //Iron Rock Colour
/////////////////////////// Player Setup
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of Players
NumberOfPlayers(HowManyPlayers);

Players[0].Name := 'Username'; //Your Runescape Username
Players[0].Pass := 'Password'; //Your Runescape Password
Players[0].Nick := 'lol' ; //Just leave, no point
Players[0].Boolean1 := True; ; //Pickaxe Equipped?
Players[0].String1 := 'Rock1' ; //Look at constants to find rock #
end;
/////////////////////////// Rock Mining
Procedure mineproc;
begin
if (not (LoggedIn)) then
LoginPlayer;
HighestAngle;
end;
begin
if (Players[CurrentPlayer].String1='Rock1') then
begin
repeat
if (FindColor(x,y,Rock1,0,0,520,340)=True) then
ClickMouse(x,y,True);
Wait(7000);
Until(InvFull);
end;
begin
if (Players[CurrentPlayer].String1='Rock2') then
begin
repeat
if (FindColor(x,y,Rock2,0,0,520,340)=True) then
ClickMouse(x,y,True);
Wait(7000);
Until(InvFull);
end;
begin
if (Players[CurrentPlayer].String1='Rock3') then
begin
repeat
if (FindColor(x,y,Rock3,0,0,520,340)=True) then
ClickMouse(x,y,True);
Wait(7000);
Until(InvFull);
end;
/////////////////////////// Drop Ores
Procedure dropping;
begin
if (not (LoggedIn)) then
LoginPlayer;
HighestAngle;
end;
begin
if (Players[CurrentPlayer].Boolean1=True) then
begin;
GameTab(4);
DropTo(1, 28);
end;
else
if (Players[CurrentPlayer].Boolean1=False) then
begin
GameTab(4);
DropTo(2, 28);
end;
end;
/////////////////////////// Dudes Main Frame
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
DisguiseScar('Dude!')
repeat
mineproc;
dropping;
until(false)
end.

[Boreas]

Count your begins and ends. Proper standards help with this.

[TheGodfather]

and the playernick does matter. Thats what the FindTalk is based on....

[dudesareus]

alright, thanks guys