Exercice pascal

Bonjour,
SVP je dois ecrire un programme qui calcule le prix d'un telegramme voila l'enonce de l'exercice:
on donne un telegramma mot par mot. On souhaite compter le nombres d'unites de paiement du telegramme sachent qu'il se termine par le mot (stop) et qu'un mot de longueur L coute (L/10)+1 unites . Le mot stop ne coute rien.
j'ai utilise la fonction lenght mais en vain.
PS:je travaille sur le free pascal.
svp aidez moi je dois rendre l'exo.
Merciii