Code:
var
x, y: integer;
Procedure One; //Numbers can't be used first.
begin //Begin is needed.
if (IsFunctionKeyDown(1)) then //Control. There's no semicolon after "then"
begin //No Semi colon after "begin"
getmousepos(x, y);
end;
end; //end is needed to end the procedure.
Procedure Two; //Numbers can't be used first.
begin //No semi colon after "begin"
repeat //No semi colon after repeat
ClickMouse(x, y, false);
Until(IsFunctionKeyDown(1)); //Control
end;
begin;
One;
Two;
end.
You don't put semi colons infront of:
Code:
begin
then
of
is
and
Etc. Just don't put semi colons infront of any bolded words.
Procedures can't start with a number, they must be a word. 
Happy to help. <3