Вставить заданное число после N ного слова в строке — Pascal(Паскаль)-CF

Напишите программу. Вставить заданное число после 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.

Поделитесь своим мнением или задайте вопрос