Số làn xuất hiện của xâu a trong xâu b

Program wanted;
Uses crt;
Var a,b: string;
  k: byte;
Begin
  clrscr;
  write('nhap xau a:');
  readln(a);
  write('nhap xau b:');
  readln(b);
  k := 0;
  While pos(a,b)<>0 Do
    Begin
      k := k+1;
      delete(b,1,pos(a,b)+1);
    End;
  writeln('so lan xuat hien:',k);
  readln
End.