Напишите код на паскале.Сама задача: посчитать частоту встречаемости каждой буквы алфавита в введенном тексте.

Var a:array[1..33] of integer;
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in [А..Я] then a[(ord(s[i])-ord(А)+1)]+=1
else a[(ord(s[i])-ord(а)+1)]+=1;
for i:=1 to 33 do
write(a[i], );
end.