Работа со строками

[NightFire]

беда...кто-нибудь может подсказать или показать как задачку со строковыми сделать...
ЗАДАЧА.
Вывести статистику вхождения гласных букв в строку

[Somebody]

Какой язык, среда, что именно подсказать?

[HoLToFF]

Если на паскале, то вот такой код, чисто теоретически - работает, но в связи с использованием Делфи кодировочной таблицы ANSI...

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  st:string;
  i, c:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  c:=0;
  readln(st);
  writeln(st);
  for i:= 1 to length(st) do
    case st[i] of
    'а','е','ё','и','о','у','ы','э','ю','я': inc(c);
    'А','Е','Ё','И','О','У','Ы','Э','Ю','Я': inc(c);
    else
    end;

    writeln(c);
    readln
end.

[NightFire]

а вот есть какая-то,но не пашит...мож где ошибка...подскажете???

program ForStudent;
uses Crt round;
var
i,j:integer;
stroka:string;
begin
Writeln('‚ўҐ¤ЁвҐ бва®Єг');
ReadLn(stroka);
j:=0;
for i:=1 to Length(stroka) do
if (stroka[i] in ['а','е','ё','и','о','у','ы','э','ю' ,'я']) or
(stroka[i] in ['А','Е','Ё','И','О','У','Ы','Э','Ю' ,'Я']) then
j:=j+1;
Writeln('В процентах: ',Round((j*100)/Length(stroka)));
Writeln('Количество: ',j);
Readln;
end.

[NightFire]

В Паскале...желательно не слишком заумно...попроще...а то препод начнет спрашивать,а Паскаль это не моё