Работа со строкой, не считает вхождения

program laba3;
uses crt;
const g=['e','u','i','a','o','y','E','U','I','A','O','Y'];
var s1,s2,s3: string;
c: char;
i,k: byte;
procedure glas(t:string);
var s:string;
j:byte;
pr:boolean;
begin
i:=1;
s:='';
t:=t+' ';
while (i<=length(t)) do 
begin
if (t[i]<>' ') then
begin
s:=s+t[i];
inc(i);
end 
else begin
inc(i);
pr:=true;
for j:=1 to length(s) do
if s[j] in g then pr:=true
else
begin
pr:=false;
break;
end;
if pr then inc(k);
s:='';
end;
end;
end;
 
begin
write('s1=');
readln(s1);
writeln('Длина s1= ', length(s1),' символа(ов)');
writeln;
write('s2='); 
s2:='';
while keypressed do readkey;
for i:=1 to length(s1) do
begin
c:=readkey;
write(c);
s2:=s2+c;
end;
writeln;
 
writeln;
write('s3=');
readln(s3);
writeln;
k:=0;
for i:=1 to length(s1)-length(s3)+1 do
if copy(s1,i,length(s3))=s3 then inc(k);
writeln('Количество вхождений s3 в s1 = ',k);
writeln;
 
k:=0;
glas(s3);
 
writeln('количество слов в s3 из гласных = ',k);
end.