Kurz was mir auffält:
du kannst nicht function(p: Pointer)
ointer schreiben. Erstens brauchst du einen Funktionsnamen (z.B. f), zweitens als Pointer ist gemeint, dass du einen Type deklarierst. Z.B. ist PChar = ^String (o.ä.) (Pointer auf String). Ich würde empfehlen, dass du dir ein Tutorial in Turbo Pascal über Pointer ansiehst...
Chris
Zu Funktionen: Dann schreibst du z.B. function f(p
char): PChar;