Лаба по Паскалю

[levalm]

Срочно нужно сделать 2 проги на Turbo Pascal.
1. Подсчитать, сколько раз в заданном тексте встречается заданный символ.
2. Дан текст из цифр и строчных латинских букв, за которым следует точка.Определить, каких букв - гласных (A, E, I, O, U) или согласных - больше в этом тексте.
Всем заранее спасибо!

[Хыиуду]

В чем проблема? Задачи простейшие. В первой пройтись по заданному тексту посимвольно, если встретим нужный символ - увеличиваем счетчик на 1. Во второй - аналогично посимвольно идти по тексту, если очередной символ - A,e,i,o или U - увеличиваем счетчик гласных, в противном случае, если не цифра - то согласных. Потом сравнить счетчики
ЗЫ: В латинском алфавите Y - тоже гласная