Stuck again :-(

[i need to bot!]

okey, I have been working on this script:

program VialFiller;

{$DEFINE Smart}
{$i SRL\SRL.scar}
{$i sps/sps.simba}


Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := 'nevermind this!:)';
Pin := '';
BoxRewards := ['XP','xp','lamp'];
LampSkill := 'Farming';
Active := True;
end;
end;


procedure OpenBankX;
var x, y: integer;
begin
MakeCompass('N');
if FindObj(x, y, 'anker', 4599606, 35) then
begin
repeat
Mouse(x, y, 0, 0, false);
ChooseOption('ank')
Until (InvFull);
end;


procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
end;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;



Procedure WithdrawVials;
begin
Withdraw(6644065, 1, 5000);
CloseBank;
end;

Procedure UseOnFountain;
begin
//to be written :)
end;


Procedure Startup;
Begin;
SetupSRL;
ActivateClient;
OpenBankX;
WithdrawVials;
UseOnFountain; // to be finished
AntiBan;
end;

begin
Startup;
end.

Now, I am getting the error 'Identifier expected at line 38'.. now, as far as I know, every single 'begin', I have also given an 'end;' to .. so I really don't know what is happening here :/

could anyone help me :D all help is appreciated!!!

btw, how could I say repeat until banksreen is open :) thanks!

[weequ]

procedure OpenBankX;
var x, y: integer;
begin
MakeCompass('N');
if FindObj(x, y, 'anker', 4599606, 35) then
begin
repeat
Mouse(x, y, 0, 0, false);
ChooseOption('ank')
Until (InvFull);
end;
end;


procedure AntiBan;
begin
if(not(LoggedIn))then Exit;
FindNormalRandoms;
case Random(8) of
0:
begin
HoverSkill('Mining', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(133));
MakeCompass('N');
FindNormalRandoms;
end;
end;
end;

Added some end; and removed one

[i need to bot!]

Thanks :D could you tell me where I went wrong

Edit: for some reason the script isn't doing anything