Kак можно определить в строке каких букв больше гласных или согласных? И вывести те строки в которых гласных больше чем согласных

function WhatMore(const s : string):integer;
var S1,S2,i: integer;
begin
for i:= 1 to Length(S) do
......