Вставить в текст после каждого слова его длину

uses CRT;
var s,t: string;
    i,n,l, err, check: integer;
begin
  write('Введите ваш текст: ');
  readln(s);
  l:=length(s);
  i:=1;
  n:=0;
  check:=0;
  repeat
     t:=copy(s,i,1);
     if i=l+check then
       insert (IntToStr(n),s,l+check)
     else begin
       if (t=',') or (t='.') or (t='?') or (t='!') or (t=';') then
        begin
          insert(IntToStr(n),s,i);
          if n>=10 then begin inc(i); inc(check) end;
          n:=0;
          i:=i+2;
          inc(check)
        end
       else
        begin
         if (t=' ') then begin
          insert (IntToStr(n),s,i);
          if n>=10 then begin inc(i); inc(check) end;
          n:=0;
          i:=i+1;
          inc(check)
         end
        else n:=n+1;
       end;
    end;
    inc(i);
  until (i>l+check);
  writeLn (s);
end.

uses crt;
var s,sc,sp: string;
    i,j: byte;
begin
write('s='); readln(s);
write('i='); readln(i);
sc:=copy(s,i,length(s)-i+1);
delete(s,i,length(s)-i+1);
sp:='';
for j:=1 to length(sc) do
    sp:=sc[j]+sp;
s:=s+sp;
write('s=',s);
end.

var
  s, a, f, q: string;
  i, k: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
    if (s[i] = ' ') or (i = length(s)) then
    begin
      if i = length(s) then a := a + s[i];
      k := length(a);
      str(k, q);
      f := f + a + '(' + q + ')' + ' ';
      a := '';
    end
    else a := a + s[i];
  writeln(f);
end.