SRL Archive - OSR Help

So ive followed the guide to chopping your first tree and tried to adapt it to clean ranarrs for me… so far i have:

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

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

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

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

procedure CleanUnid;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'nide', 348421, 35) then
begin
Mouse(x, y, 0, 0, True);
end;
repeat
wait(100+random(250));
AntiBan;
Until not IsUpText('nide');
end;

begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
CleanUnid
end.

it is saying errors on line 48 and 55 which are the last 2 "end;"s… how do i fix this? or have i done the whole script wrong? also, how would i go about adding banking + pot making? if you could help id be very greatful!

"So ive followed the guide to chopping your first tree and tried to adapt it to clean ranarrs for me… so far i have:"
…What cleaning script? This just looks like you're trying to chop a tree to me. I don't understand what you're trying to ask to be honest.

oh shit, lol i copied the version before i changed it. sorry. ill edit that now!