Need help with my script!

It keeps saying "Syntax error in line 10" but i don't know what it means.
And I need an antirandom thing at the end, I hope someone can help me out.

Here's my script then:

Code:

program MyFeatherBuyer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Misc\amount.scar}

var
   bought: integer;

const
   FeathersToBuy = ;//How many Feathers you want to buy
   ShopColor = ;//Pick the blue color of the shop symbol
   ShopkeeperColor = ;//Pick the color of the shopkeeper


function JadSymbol(WhatSymbol: String; Click, Switch: Boolean): Boolean;
var I: Integer;
begin
  for I := 1 to 25 do
  begin
    if(FindSymbol(x,y,(WhatSymbol)))then
    begin
      if(Click)then
        Mouse(x,y,2,2,true);
      Result := True;
      Exit;
    end;
    wait(750+random(500));
  end;
  Writeln('Could NOT find symbol.');
  Result := False;
  if(Switch)then
    LogOut;
end;         //Credits for this function go to JAD


procedure FindShopkeeper;
var FSX, FSY, Attempts: integer;
begin
  repeat
    Attempts:=Attempts+1;
    if FindObjMultiText(FSX,FSY,'erran','errand','Gerrand',ShopkeeperColor,?) then
      Mouse(FSX,FSY,2,2,false);
      ClickOption('Trade',1);
  until (TradeScreen) or (Attempts > 5);
  if Attempts > 5 then
  Begin
    Logout;
  end;
end;



Procedure BuyTheFeathers;
begin
  if (GetAmount(370,73) > 970) then
  begin
    Mouse(370,73,10,10,false);
    ClickOption('Buy 10',1);
    bought := bought + 10;
  end;
end;

procedure FinalReport;
begin
  Writeln('----------------------------------')
  Writeln('|     FeatherBuyer by Thomis     |')
  Writeln('----------------------------------')
  Writeln('|                                |')
  Writeln('| Succesfully bought '+IntToStr(bought)+' Feathers |')
  Writeln('|                                |')
  Writeln('----------------------------------')
end;

begin
  SetupSRL;
  ActivateClient;
     bought := 0;
  HighestAngle;
  JadSymbol('fishing shop',true,true);
  FindShopKeeper;
  repeat
    BuyTheFeathers;
    Wait(5000 + random(1000));
  until (bought > FeathersToBuy);
  CloseWindow;
  FinalReport;
  Logout;
end.

 

You need to fill the contants.

 

FeathersToBuy = ;//How many Feathers you want to buy
ShopColor = ;//Pick the blue color of the shop symbol
ShopkeeperColor = ;//Pick the color of the shopkeeper

ya u need to set that.. and srl is down cause rs update anyway

 

ok thanks guys

but I still need that antirandom thing at the end

 

Code:

FeathersToBuy = 0;//How many Feathers you want to buy
   ShopColor = 0;//Pick the blue color of the shop symbol
   ShopkeeperColor = 0;//Pick the color of the shopkeeper

That will take away the errors.

FindNormalRandoms?

 

Just FindNormalRandoms at the end?
But does it also solve them or does it just log out?

 

FindNormalRandoms wherever it's needed will do everything you need.