В заданной строке удвоить символ после первого пробела и удалить символ после последнего пробела.

uses crt;
var s: string;
    i: byte;
begin
write('s='); readln(s);
i:=1;
while s[i]<>' ' do inc(i);
insert(s[i+1],s,i+1);
i:=length(s);
while s[i]<>' ' do dec(i);
delete(s,i+1,1);
write('s=',s);
readln;
end.

uses crt;
var s:string;
    i,i1,ip:byte;
    c:char;
begin
clrscr;
writeln('Введите строку, содержащую в том числе пробелы:');
readln(s);
i:=1;
i1:=0;
while(i<=length(s))and(i1=0) do
if s[i]=' ' then
 begin
  i1:=i;
  c:=s[i+1];
 end
else i:=i+1;
if i1=0 then writeln('В строке нет пробелов')
else if i1=length(s) then write('В строке единственный пробел')
{если пробел 1, то строка не изменится, удвоим потом удалим}
else
 begin
  i:=length(s);
  ip:=0;
  while (i>=i1)and(ip=0) do
  if s[i]=' ' then ip:=i
  else i:=i-1;
  if ip=i1 then writeln('В строке единственный пробел')
  else
   begin
    delete(s,ip+1,1);
    writeln(s);
    if i1<length(s) then insert(c,s,i+1);
    write(s);
   end;
 end;
readln
end.

insert('%',s,pos(' ',s)+1);