Напишите программу. Вставить заданное число после N ного слова в строке.
uses crt;
var s,s1:string;
i,k,n:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';//добавим пробел в начало и в конец для удобства
//подсчитаем количество слов
k:=0;
for i:=2 to length(s) do
if(s[i]<>' ')and(s[i-1]=' ')then inc(k);
repeat
write('Введите номер слова после которого вставить число от 1 до ',k,' n=');
readln(n);
until n in [1..k];
write('Введите целое число для вставки k=');
readln(k);
str(k,s1);
k:=0;
i:=2;
while(i<length(s))and(k<n) do
begin
if(s[i]<>' ')and(s[i-1]=' ') then k:=k+1;
i:=i+1;
end;
if k=n then
begin
while s[i]<>' ' do inc(i);
insert(s1+' ',s,i+1)
end;
write(s);
readln
end.