Var s,s1,s2:string;
k,l,p:integer;
begin
writeln('Введите строку:');
readln(s);
writeln('Введите подстроку:');
readln(s1);
l:=length(s1);
s2:=s;
k:=0;
p:=pos(s1,s2);
while p>0 do
 begin
 k:=k+1;
 delete(s2,p,l);
 p:=pos(s1,s2);
 end;
writeln('k = ',k);
end.

Пример:
Введите строку:
сколько раз в текстовой строке S встретится подстрока S1
Введите подстроку:
ст
k = 4