Найти слово. Делфи

[Nukerer]

Здравствуйте, нужно найти слово из текста, который находится в компоненте мемо с максимальным отношением согласная/гласная. Смог написать только часть кода, которая отвечает за подсчет всех гласных и согласных, но даже он не работает.

const
a = ['A','E','I','O','U','Y','a','e','i','o','u','y','а','у','о','и','э','ы','я','ю','е','ё','А','У','О','И','Э','Ы','Я','Ю','Е','Ё'];
b= ['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Y', 'Z', 'b', 'c', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'y', 'z',
'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М', 'Н', 'П', 'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м', 'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'];

var
F : textfile;
I : word;
W: word;
begin
read(F,C);
if C in a then
inc(I);
if c in b then
inc(W);
readln(f);
end;
end;
ShowMessage('Отношение гласных к согласным='+IntToStr(w)+'/'+IntToStr(i));
end.

[Arigato]

Сообщение от Nukerer

который находится в компоненте мемо

Начнем с того, что вам надо создавать оконное приложение, а не консольное.