Program Mencari Karakter

program mencarikaraktertertentu;
uses wincrt;
var
   stringInput, x: string; y:char;
   jumlahHuruf,jumlah, i: integer;
  
begin
     write ('ketikan kata sesuka anda:');
     readln(stringInput);
     write ('kata yg anda ingin hitung;');
     read(y);
     x:= stringInput;
     jumlah:=0;
     for i:= 1 to length (x) do
         begin
         if (x[i] in [y] )then jumlah:=jumlah + 1;
         end;
        
         jumlahHuruf:=jumlah;
         writeln('jumlah huruf ',y,' adalah ', jumlahHuruf);
end.