Nouveau

Bonjour, SVP je dois écrire un programme qui calcule le prix d'un télégramme. Voilà l'énoncé de l'exercice :
On donne un télégramme mot par mot. On souhaite compter le nombres d'unités de paiement du télégramme, sachant qu'il se termine par le mot (stop) et qu'un mot de longueur L coûte (L/10)+1 unités. Le mot stop ne coûte rien.
Je dois utiliser la fonction lenght mais je sais pas comment faire.

Ps : je travaille sur le Free Pascal.
Merciii