you didnt declare that in your var. I rewrote it (didnt even run it, wrote it real fast in like literally a minute). This is more along the lines of what it should look like.
SCAR Code:
program WhateverYouWant;
var
i, tree, x, y : integer;
procedure CutTree;
begin
Tree := BitmapFromString(1, 7, '8E75438E75438E75438E7543927' +
'744927744927744');
if (findbitmap(Tree, x, y)) then
begin
Mouse(0, 0, 0, 0, true)
WriteLn('found tree')
i := i + 1;
end;
begin //mainloop
SetupSRL;
ActivateClient;
i := 0;
repeat
CutTree;
until (i: = 10);
end.