Помогите написать небольшую программу на TurboPascal.

вар с: стринг; и, жи, к: интегер; а: аррай [1..6] оф чар;
бегин а [1]:='а'; а [2]:='и'; а [3]:='ай'; а [4]:='о'; а [5]:='ю'; а [6]:='уай';
реадлн (с) ; фор и: =1 то ленгтх (с) до
бегин фор жи: =1 то 6 до иф а [жи] =с [и] тхен к: =к+1; енд; врителн (к) ;
енд.

Если что - я скину еще не транслитом письмом (тут кириллицу не принимает)

вот пример решения подобной задачи
Program GlasnSogl;
Type
Letters = set of 'A'..'я';
Var
Glasn, Sogl : Letters;
Text : String;
i, G, S : byte;
Begin
Glasn := ['A', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'ы','Э', 'э', 'Ю', 'ю', 'Я', 'я', 'Ё', 'ё'];
Sogl := ['Б'..'Д', 'б'..'д', 'Ж', 'ж', 'З', 'з', 'К'..'Н', 'к'..'н', 'П'..'Т', 'п'..'т', 'Ф'..'Щ', 'ф'..'щ', 'ь', 'ъ'];
Write('Введите предложение ');
Readln(Text);
G := 0;
S := 0;
For i := 1 to Length(Text) do
Begin
If Text in Glasn
Then
G := G+1;
If Text in Sogl
Then
S := S+1;
End;
Write('В предложении " ', Text, ' " ', G, ' гласных и ', S, ' согласных букв');
End.

Правильно ты мыслишь! Создай простейший массив из гласных букв, а потом в цикле 1 to length сравни со строкой каждый элемент массива, все по ходу дела записывай в переменную, которая будет счичать гласные. Ничего страшного нет)

Кому нужны твои баллы?