[chainik]

Все- таки решил помочь. хотя ТАКИЕ программы стыдно неуметь писать самому.

Здесь программа принимает в командной строке имя текстового файла и считает колич. гласных и согл. (В кодировке Windows!)
Не удивляйся на абракадабру в конце файла. Дело в том что консольные приложения выдают на экран сообщения в кодировке DOS.
При запуске ты увидишь нормальный текст.

Код:

program Project1;
    uses SysUtils;

{$APPTYPE CONSOLE}


var
F:TextFile;
ch:char;
NumGlasn,NumSogl:integer;
begin
NumGlasn:=0;
NumSogl:=0;
AssignFile(F,ParamStr(1));reset(F);
while not eof(F) do
    begin
    read(F,ch);ch:=AnsiUpperCase(ch)[1];
        case ch of
        'А','Е','И','О','У','Э','Ю','Ё','Я':inc(NumGlasn);
        'Б','В','Г','Д','Ж','З','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ','Ъ':inc(NumSogl);
        end;    //case
    end;
CloseFile(F);
Writeln('”*©«:',ParamStr(1));
Writeln('ѓ«*б*ле:',NumGlasn);
Writeln('‘®Ј«*б*ле:',NumSogl);
end.