Для каждого из слов заданного предложения укажите, сколько раз оно встречается в предложении — Pascal(Паскаль)

program slova;
var s,sl:string;
    k,i:integer;
begin write('Vvedite tekst:');
      readln(s);
      write('Vvedite slovo: ');
      readln(sl);
      k:=0;
      while pos(sl,s)>0 do
        begin k:=k+1;
              delete(s,pos(sl,s),length(sl));
        end;
      writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');
end.