Дана страка знаков, содержашая слова, то есть группы знаков,разделеные пробелами( не

program zz1;
var str,slovo:string;
i,dl,k:integer;
begin
writeln(Введите начальную строчку);
readln(str);
str:= +str+ ; //прибавляем в начало и конец начальной строчки пробелы, на случай, если строчка будет начинаться либо кончаться на данное слово
writeln(Введите заданное слово);
read(slovo);
slovo:= +slovo+ ;//прибавляем в начало и конец данного слова пробелы, на случай, если данное слово является долею иного слова
dl:=length(slovo); //обретаем длину данного слова
for i:=1 to length(str) do
if copy(str,i,dl)=slovo then k:=k+1; //копируем из начальной строчки, куски длиной в столько знаков, сколько длина данного слова, и если скопированный кусочек равен заданному слову, считаем его
write(Данное слово в начальной строке встречается ,k, раз);
end.