Developing.ru

дана строка символов определить сколько гласных символов в строке.(буквы английские) Оформить эту программу процедурой и функцией
Программа:
uses crt;
const gl=['a','y','u','i','o','e'];
var s:string; i,k:integer;
begin
clrscr;
write ('stroka-->');
readln(s);
k:=0;
for i: to length(s) do
if s in gl
then inc(k);
writeln ('cglasnyx',k);
readkey;
end.

[syntax='Delphi']
uses crt;
const gl=['a','y','u','i','o','e'];
function gl_count(s: string): integer;
var i: integer;
begin
gl_count:=0;
for i:=1 to length(s) do
if s in gl
then inc(gl_count);
end;
var s:string;
begin
clrscr;
write ('stroka-->');
readln(s);
writeln ('cglasnyx',gl_count(s));
readkey;
end.

uses crt;
const gl=['a','y','u','i','o','e'];
var s:string; k: integer;
procedure gl_count(s: string);
var i: integer;
begin
k:=0;
for i:=1 to length(s) do
if s in gl
then inc(k);
end;

begin
clrscr;
write ('stroka-->');
readln(s);
gl_count(s);
writeln ('cglasnyx',k);
readkey;
end.
[/syntax]

Как-то так, не проверял