Program Menentukan Karakter Pada Sebuah Kata

Nah, teman-teman, berikut adalah program menentukan karakter pada sebuah kata. Disimak yaaa....

uses wincrt;
type himpunan = set of char;

var
kalimat:string;
i:integer;
kata:himpunan;
kar:char;
begin
write(' kalimat = '); readln(kalimat);
kata:=[ ];   {berikan nilai awalan}
 for i := 1 to length(kalimat) do
     kata:=kata+[kalimat[i]]; {dibuat himpunan dulu}

 writeln(' Karakter yang terkandung dari kalimat diatas : ');
 for kar:= #0 to #255 do
 begin
 if kar in kata then
  writeln(upcase(kar));
 end;
end.