In #19 schreibst Du 3 Funktionen, die jeweils als Rückgabewert
einen String haben sollen. Allerdings passiert da nichts. Nirgendwo ein
Result := 'Blabla'
Dann kannst Du auch gleich eine procedure draus machen. Oder
Du gibst etwas sinnvolles zurück, was in der aufrufenden Routine auch verwertet wird.
Wie universell sollen denn Deine Funktionen sein. Dienen sie nur
dazu, das count(*) zurückzugeben oder soll das eine Art Blackbox
werden? Wenn letzteres, musst Du das Ganze noch etwas aufbohren.
Ich denke, Beispiele findest Du hier in der
DP bis zum Abwinken.