Пользователь вводит текст. выяснить, сколько раз встречается каждая буква в предложенном тексте.

Var s:string;
a:array[1..26] of integer;
i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if (s[i] in ['a'..'z']) then inc(a[ord(s[i])-ord('a')+1]);
if (s[i] in ['A'..'Z']) then inc(a[ord(s[i])-ord('A')+1]);
end;
for i:=1 to 26 do
write(a[i],' ');
end.