Program Menghitung Huruf (Pascal)

Program Hitung_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.