[fpc-pascal]Help newbie !

[NDQ]

Hi,
Just tried fpc under Linux.

This is my simple test :

----------------------------------
Unit Test;

INTERFACE

Uses Crt;

Function GetTextColor:byte;

IMPLEMENTATION

Function GetTextColor;
begin
    GetTextcolor := TextAttr mod 16
end;

END.
---------------------------------

And I have compiling error :

[quy] /disk3/work/pascal/dan3D$ ppc386 test.pas 
Free Pascal Compiler version 1.0.2 [2000/10/12] for i386
Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Linux for i386
Compiling test.pas
test.pas(11,22) Fatal: Syntax error, : expected but ; found

Could you tell me where is my error Please,
Thanks,
Q.