SRL Archive - OSR Help

Hello,
I read the tutorials on the forum and even the video series.
After 4 hours of trying still no succes.
I get Identifier expected at line 42
I dont see what's wrong i see a begin a repeat even a untill and a end with a . because it is the last one

program FishFlyV2;

{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}


var
x,y: Integer;
PBox: TBox;

procedure Fish;
begin
If P07_FindObjCustom(x, y, ['ure'], [14597535, 14597268, 15123625, 14398100, 15058085], 5) Then
      ClickMouse2(mouse_left);
Wait(Random(100))
end;

procedure DropFish;
begin
 If P07_InvFull Then
  P07_DropAllExcept([1,2]);
 Wait(Random(45))
end;

function isFishing: Boolean;
begin
   PBox := IntToBox(238, 169, 279, 217);
  Result := (AveragePixelShift(PBox, 250, 350) > 40);
end;

begin
SetupP07Include;
 repeat
 P07_MakeCameraAngleHigh;
 P07_MakeCompassWest;
 Fish;
 while isFishing do;
 Wait(1);
 DropFish;
 //until(false);
end.                                  

Are you sure the repeat and until are correct? Have a look at http://villavu.com/forum/showthread.php?t=58935

nvm found it omg im a retard !