What am I doing wrong?

[jarlaxe]

program MyFirstProgram;

var
x,y,hangman:integer;

procedure DeclareBMPS;
begin
hangman := BitmapFromString(1, 14, 'z78DA33333031373232A32A' +
'0900CEEE10E7');
end;

procedure movehere;
begin
wait(100)
movemouse(x,y)
wait(10)
clickmouse(x,y,true)
end;

procedure findhang;
begin
begin
if(FindBitmap(hangman,x,y))then
movehere;
end;
begin
end.

when i run this it says [Error] (27:4): Identifier expected

plz help!

[jarlaxe]

Stupid me

just looked over it. I had 2 begins

lol

[JAD]

As it would have said if you checked out my tutorial for fixing errors :D lol, check that out next time first :p