uses crt;
var s:char;
    st:string;
    dem:byte;
begin
    clrscr;
    repeat
         write('Nhap ki tu:');readln(s);
    until s=upcase(s);
    repeat
         write('Nhap xau:');readln(st);
    until st=upcase(st);
    while pos(s,st)<>0 do
       begin
           inc(dem);
           delete(st,pos(s,st),1);
       end;
    writeln('Co ',dem,' ki tu ',s,' trong xau');
readln;
end.

uses crt;
var d:longint; s,c:string;
begin
clrscr;
   repeat 
      write('Nhap ki tu: ');readln(c);
   until c=upcase(c); 
   repeat 
      write('Nhap xau: ');readln(s);
   until s=upcase(s); 
   while pos(c,s)<>0 do 
      begin
         inc(d);
         delete(s,pos(c,s),1); 
      end;
   writeln('Co ',d,' ki tu ',c,' trong xau');
readln;
end.