Составить программу позволяющую выяснить сколько раз встречается…

Program gt; var a: string; p,i,l: longint; b: array[1… 200]of longint; beginreadln (a); l: =length (a); for i: =1 to l dobeginp: =ord (a[i]); b[p]: =b[p]+1; end; for i: =97 to 122 dobeginwrite (b[i],'); end; end.