menghitung huruf

program menghitung_huruf;
uses wincrt;
type
  karakter = set of char;
var
  huruf      : karakter;
  teks       : string[255];
  jumlah, I  : word;
begin
    clrscr;
    writeLn('Ketiklah kata  Apa saja dibawah ini :');
    writeLn;
    readLn(teks);
    huruf := ['a'..'z','A'..'Z'];
    jumlah := 0;
    for I := 1 to ord(teks[0]) do
      if teks[I] in huruf then
       jumlah := jumlah+1;
       writeLn;
       writeLn('Jumlah huruf yang anda masukan = ',jumlah,' huruf');
       writeLn('Kalau tidak percaya hitung saja sendiri !');
       writeLn;writeLn;
       writeLn('Tekan Enter untuk keluar');
       readLn;
end.