Program Penghitung Huruf

Uses WinCrt;
Var
Teks : string;
banyak : array['A'..'Z'] of byte;
i : byte;
begin
    Write('Masukkan Suatu Kalimat :');
   Readln(Teks);
   for i:=1 to length(teks) do
         banyak[upcase(teks[i])]:=banyak[upcase(teks[i])]+1;
         for i:=1 to 26 do
                if (banyak[upcase(chr(64+i))]<>0) then
                writeln(upcase(chr(64+i)),' banyaknya=',banyak[upcase(chr(64+i))]);
end.