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

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.