Программа с функцией)помогите пожалуйста)

[Катерина5555]

дана строка символов определить сколько гласных символов в строке.(буквы английские) Оформить эту программу функцией
Программа:
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.

[aavtuchovich]

дана строка символов определить сколько гласных символов в строке.(буквы английские) Оформить эту программу функцией
Программа:
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.

Держите ...

Код: Выделить всё

uses crt;
const gl=['a','y','u','i','o','e'];
var s:string;

function getLetter(stroka: string): integer;
   var i,k: integer;
begin
  k:=0;
  for i:=1 to length(s) do
  if s[i] in gl
  then inc(k);
  getLetter := k;
end;

begin
clrscr;
write ('stroka-->');
readln(s);
writeln ('cglasnyx',getLetter(s));
readkey;
end.