Pascal/Turbo Pascal - contador de vocales

estoy haciendo un algoritmo en pascal que cuenta el numeo de vocales de un vector, es facil y me sale en pseudocodigo, pero no en pascal
Si me puedes ayudar te lo agradecere

Lee la oración y conviértela a mayúsculas para mayor facilidad. Luego verificas una a una cada letra, y vas aumentando un contador.
Si deseas ver el código fuente que te propongo, escríbeme.

Otra alternativa sería cargar las vocales mayusculas, minuscula, acentuadas o no en un conjunto e ir comparando cada caracter del vector para ver si dicho caracter está incluido en el conjunto. La declaración del conjunto sería:
const
vocales:set of char=(a,e,i,o,u,A,E,I,O,U,á,é,í,ó,ú,Á,É,Í,Ó,Ú);

Espero que te sirva esto, esta hecho al apuro, suerte

ATTE.
ARöl

Muchisimas gracias, estaba un poco desesperado.
Un saludo desde Palma de Mallorca.

Y tú, creyendo que te haces un favor
Dejando a un lado esa hermosa sensación
Y más queriendo apartar toda la atención
Queriendo mantener todo ese temor

Sin comprender lo que en verdad es amor
Lo que en verdad es el fruto de la pasión
Como un gran poema o una bella canción
Reviviendo ese inexplicable calor

Dejando al corazón siga los pasos
Más pasos que guían a la realidad
Realidad, realidad llena de lazos

Solo dejando entrar la pura bondad
Recibiendo bellos besos y abrazos
Es como se obtiene esa profundidad.