Tìm kí tự trong xâu

Nhập từ bàn phím Cho một xâu kí ý tự S và một kýí tự  tự K. Hãy in ra màn hình số lượng kí tự K có trong xâu kí tự Sho biết trong xâu ký tự S có bao nhiêu ký tự K và các vị trí xuất hiện của kí tự K trong xâu Schúng . Nếu không có kí tự K trong xâu S thì in ra màn hình dòng thông báo: Khong co
                                                                 Giải
const
      f0='xau.inp';
      fi='xau.out';
 var
    f1:text;
    S:string;
    K:char;
    a,i,x:integer;
 BEGIN
      assign(f1,f0);
      reset(f1);
                readln(f1,S);
                read(f1,K);
      close(f1);
      assign(f1,fi);
      rewrite(f1);
                  for i:=1 to length(S) do
                      if s[i]=k then x:=x+1;
                  writeln(f1,x);
                  for i:=1 to length(S) do
                      if s[i]=k then write(f1,i,' ');
                  if x=0 then write(f1,'Khong co');
      Close(f1);
 END.