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

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