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

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.