Вводится строка.Напечатать все гласные буквы входящие в текст.И посчитать сколько гласных букв напечатано. - Pascal

Формулировка задачи:

Вводится строка.Напечатать все гласные буквы входящие в текст.И посчитать сколько гласных букв напечатано.

Var st,x,k:string;
 i,n,j,m:integer;
begin
 
write('stroka texta ');
readln(st);
k:='aeyuio';
 For i:=1 to length(st) do
   If st[i]=k  then copy( st,i,1);
  writeln( st[i] );
   readln;
 
 End.

не работает...помогите...исправить...

пожалуйста!помогите

begin
 
write('stroka texta ');
readln(st);
k:='aeyuio';
 For i:=1 to length(st) do
   If st[i]=k  then h:=copy( st,i,1);
  writeln(h);
   readln(h);
 w:=length(h);
 writeln(w);
 readln(w);
 End.

не пойму...почему не работает???

люди...помогите....это очень важно...программа то вроде верная...что не то!!

Решение задачи: «Вводится строка.Напечатать все гласные буквы входящие в текст.И посчитать сколько гласных букв напечатано.»

Листинг программы

const
  vowel:array[1..6] of char = ('a','e','y','u','i','o');
 
Var st:string;
j,i,k:integer;
begin
writeln('stroka texta ');
read(st);
readln;
k:=0;
writeln('glas simvols:');
For i:=1 to length(st) do
for j := 1 to 6 do
If st[i] = vowel[j] then
begin
k:=k+1;
write(st[i]:2);
end;
writeln;
writeln('kol-vo glas');
writeln(k);
readln
end.

Объяснение кода листинга программы

Этот код на языке Pascal предназначен для чтения строки, подсчета количества гласных букв и их печати. В этом коде используется константа vowel, которая представляет собой массив из 6 символов - гласных букв в русском алфавите. Переменная st представляет собой строку, которую читает программа. Цикл for идет по каждому символу в строке. Если текущий символ равен одному из символов в массиве vowel, то счетчик k увеличивается на единицу. Если k равно 6, то это означает, что в строке есть 6 гласных букв, и программа выводит сообщение kol-vo glas. Кроме того, программа выводит количество гласных букв, которое равно значению переменной k.