Procedure declaration before implementation section

[pascal111]

I fix it, I used C style, this is the error!

Code: Pascal  [Select][+][-]

1. function foo():integer;
2. begin
3.  
4. result:=888;
5. end;  
6.