Fixed your script for you 
You had poor standards and were missing some begin and end statements which would've stopped your script from working.
Simba Code:
program Jailbait_V1;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
//start script west of the jail in draynor.
Players[0].Name :=''; //username
Players[0].Pass :=''; //password
Players[0].Pin := ''; //bankpin
Players[0].Member := False; //put true= members
end;
procedure WalkToTree;
var
ToTrees:TPointArray;
begin
if(not(LoggedIn))then
Exit;
SPS_Areas := ['10_9'];
ToTrees := [Point(4193, 3666), Point(4188, 3649), Point(4202, 3644), Point(4231, 3641), Point(4255, 3672), Point(4270, 3665)];
SPS_WalkPath(ToTrees);
Wait(4232+random(354));
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
MakeCompass('S');
Wait(40+random(133));
HoverSkill('Woodcutting', false);
Wait(2453+Random(432));
end;
procedure ChopTree;
var
x, y: Integer;
begin
FindNormalRandoms
MakeCompass('N');
SetAngle(SRL_ANGLE_LOW);
repeat
repeat
if FindObj(x, y, 'hop',1517609, 34) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('hop');
MakeCompass('E');
Wait(1100+ random(1010));
MakeCompass('W');
Wait(1007+ random(1003));
MakeCompass('N');
Wait(1200+ random(250));
end;
until not IsUpText('ak') or (InvFull);
until(InvFull);
end;
procedure WalkToBank;
var
ToBank, ToTrees:TPointArray;
begin
if(not(LoggedIn))then
Exit;
FindNormalRandoms;
SPS_Areas := ['10_9'];
ToBank:= [Point(4252, 3672), Point(4228, 3659), Point(4200, 3646), Point(4193, 3666)];
SPS_WalkPath(ToBank);
Wait(5075+random(953));
SPS_Areas := ['10_9'];
ToTrees:= [Point(4191, 3663), Point(4188, 3646), Point(4203, 3643), Point(4228, 3661), Point(4244, 3673), Point(4272, 3662)];
SPS_WalkPath(ToTrees);
Wait(1354+random(254));
FindNormalRandoms;
end;
procedure Banking;
begin
if(InvFull) then
begin
repeat
OpenBankFast('db');
if(PinScreen)then
InPin(Players[CurrentPlayer].Pin );
if(BankScreen) then
begin
DepositAll;
CloseBank;
end;
until(InvEmpty);
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
repeat
WalkToTree;
ChopTree;
WalkToBank;
Banking;
until (not LoggedIn);
WriteLn('until next time.');
end.
It's very good though for a first script, can't wait for your seconds one.