[PASCAL] Pencarian Huruf dalam sebuah String

Program sederhana berikut adalah untuk mencari sebuah huruf yang terdapat dalam sebuah kata.
Output program ini akan menunjukkan ada berapa kali huruf yang di cari dalam sebuah kata dan menunjukkan posisinya dalam kata tersebut (huruf keberapa saja).

program Gaby-Search;

uses crt;

var
 s : String;
 len,i : integer;
 cari : char;
 jlh : integer;
 xx, pos : String;



begin
 write('Masukkan Kata : ');
 readln(s);

 len := Length(s);

 writeln('Kata yang dimasukkan adalah : ');
 for i := 1 to len do
  write(s[i], ', ');
  writeln();
  readln();

 write('Masukkan Huruf yang di cari : ');
 readln(cari);

 writeln('Huruf yang di cari "',cari,'"');
 readln();
 jlh := 0;

 For i := 1 to len do
  begin
   if (s[i] = cari) then
    begin
     str(i,xx);
     pos := pos + xx + ', ';
     jlh := jlh + 1;
    end;
  end;

 if (jlh > 0) then
 writeln('Huruf ',cari, ' ditemukan sebanyak : ', jlh, ' kali pada posisi : ', pos)
 else
 writeln('Huruf ',cari, ' tidak ditemukan!');
 readln;
end.