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

var s:string;a:array[1..26] of integer;i:integer;beginreadln(s);for i:=1 to length(s) do beginif (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 dowrite(a[i],' ');end.