Наверное я не правильно понял второе задание.
Вероятно так правильнее:
var A:set of char;
s:string;
c:char;
j,n:integer;
begin
A:=['a','e','i','o','u','y'];
Write('Slovo : '); Readln(s);
for c:='a' to 'z' do
if c in A then
begin
n:=0;
for j:=1 to Length(s) do
if s[j]=c then Inc(n);
if n<>0 then
Writeln(c,' = ',n);
end;
Readln;
end.