When you take out everything in the loop it looks like this:
SCAR Code:
begin
begin
repeat
until False;
end;
begin
repeat
until False;
end;
end;
end.
That gives a error to give a period not a semicolon.
So change your loop to this:
SCAR Code:
begin
Signature;
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
CheckLevel;
Writeln('Current Mining Level Is ' +IntToStr(Level));
if Bank = 'False' then
begin
repeat
ToDrop;
if not Loggedin then NextPlayer(False);
until False;
end;
if Bank = 'True' then
begin
repeat
Tobank;
if not Loggedin then NextPlayer(False);
until False;
end;
end.