Most common errors

[TheGodfather]

This is getting alittle upsetting, becuase 90% of my errors are
Identifier Expected.... Whenever I try to make a procedure. It's soo irratatin.
Ill post examples.

[syberium]

identifier usally means u need another end;

[TheGodfather]

Program HumanType;
begin
Procedure SendKeysHuman(text:String);
Var
a1 : Integer;
Begin
a1:= 1;
Repeat
wait(random(220) + 15);
sendkeys(copy(text, a1, 1));
a1:= a1 + 1;
Until a1 > length(text);
End;
begin
SendKeysHuman('Test123');
end;
end.
I'd get Indentifier expected for the "Procedure SendKeysHuman(text: string);"

[WT-Fakawi]

there should not be a begin after Program; first you do all the proc/func stuff
you misplaced one end;


Program HumanType;
Procedure SendKeysHuman(text:String);
Var
a1 : Integer;
Begin
a1:= 1;
Repeat
wait(random(220) + 15);
sendkeys(copy(text, a1, 1));
a1:= a1 + 1;
Until a1 > length(text);
End;
end;
begin
SendKeysHuman('Test123');
end.

[TheGodfather]

Wow thanks, :) helps alot.