Посчитать сколько раз в текстовой строке S встретится подстрока S1. Разрешается завести только одну дополнительную строковую переменную. Pascal.

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