Menghitung Jumlah huruf pada sebuah kata / kalimat

uses crt;
var
kata : string;
h : array ['A'..'Z'] of byte;
j : char;
i : byte;
begin
clrscr;
write('Input kata : ');readln(kata);
for i := 1 to length(kata) do
begin

for j := 'A' to 'Z' do
begin
if kata[i]= j then
begin

Download program lengkapnya di sini