Mássalhangzó, magánhangzó és betű számláló Pascalban?

Igen, mert nagyon hülyének érzem magam. :S

A While ciklust azért cseréltem For ciklusra, mert azt gondoltam: "ááá biztos ott a hiba", de nem... globálisa n nem csinálja...

function kisbetusit (ch : char):char;

var

i : byte;

l : boolean;

begin

l := false;

i:=1;

for i :=1 to length(maganhangzo) do

if ch=maganhangzo[i] then l:=true;

if not l then begin

case ch of

'Á': ch :='á';

'Í': ch:='í';

'Ű': ch:='ű';

'Ő':ch:='ő';

'Ü':ch:='Ü';

'Ú':ch:='ú';

'É':ch:='é';

'Ó':ch:='ó';

else lowercase(ch);

{próbáltam úgy is, hogy: ch := lowercase(ch);

end;

end;

kisbetusit:=ch;

end;

function myLoCase(ch : char) : char;

var kicsik : string = Chr($81) + Chr($82) + Chr($8B) + Chr($FB) + Chr($94) + Chr($A0)+ Chr($A1) + Chr($A2) + Chr($A3);

nagyok : string = Chr($9A) + Chr($90) + Chr($8A) + Chr($EB) + Chr($99) + Chr($B5)+ Chr($D6) + Chr($E0) + Chr($E9);

i : byte;

begin

if Ord(ch) > 127 then

begin

for i := 1 to Length(nagyok) do if ch = nagyok[i] then myLoCase := kicsik[i];

for i := 1 to Length(kicsik) do if ch = kicsik[i] then myLoCase := kicsik[i];

end

else

myLoCase := LowerCase(ch);

end;