Строки

var
s,s1 :string;
i,k :integer;
begin
k:=0;
writeln('Enter a line ');
readln(s);
writeln('Enter a word ');
readln(s1);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
begin
inc(k,1);
if k:=3 then insert(s,s1,1);
end;
 
writeln('quantity ',k);
writeln(s);
readln;
end.

const c = ['0'..'9'];
var
   st,x: string;
   i,k,b: byte;
begin
   write('введите строку: ');
   readln(st);
   for i:=1 to length(st) do
      if st[i] in c then
         begin
            if not (st[i-1] in c) then inc(k);
            if (k=3) and ((not (st[i+1] in c) or (i=length(st))) then
               begin
                  b:=i;
                  break;
               end;
         end;
   write('введите слово: ');
   readln(x);
   x:=' '+x+' ';
   insert(x,st,b+1);
   writeln('новая строка: ',st);
   readln
end.