O código seguinte está sintaticamente correto e implementa um algoritmo que permite contar o número de vogais em um string chamado S.

function CountVowels(const S : string) : integer;

var

i : integer;

begin

Result := 0;

for i := 1 to length(S) do

if upcase(S[i]) in ['A', 'E', 'I', 'O', 'U'] then

inc(Result);

end;