pascal ---> bikin program penghitung huruf

pada saat pertemuan terakhir perkuliahan ... dapat tantangan dari dosen "barang siapa bisa bikin program penghitung huruf dengan pascal maka akan dibebaskan dari uas (ujian akhir semester)" ... jadi semangat nyoba bikin dan berharap akan mengurangi beban pas ujian nanti ... namun kendala utamanya adalah belum memahami sepenuhnya bahasa pascal ... terpaksa deh minta bantuan mr. google tuk cariin listing yang udah jadi ... setelah di kasih tau alamat yang dicari ama mr. google dapet listing sbb :


uses crt;
var  teks : string;
     banyak : array ['A'..'Z'] of byte;
     i : byte;

begin
     clrscr;
     writeln('Program Penghitung Huruf (versi beta)');
     read;
     writeln;
     write('Silakan Anda Ketik Sejumlah 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))]);
     readln;

     gotoxy(45,20);
     writeln('edited by MUJHAN ILMI');
     gotoxy(55,21);
     writeln('09.63.0480');
     readln;

end.

dari beberapa listing yang didapat coba di modifikasi sedikit buat ngeyakinin dosen bahwa itu listing bikinan sendiri ... he he he ... tp kaya nya ketahuan juga sih nantinya ... ga pa2 lah ... namanya juga usaha ... kurang lebih jadi nya seperti ini ...:::