Преобразовать строку так, чтобы каждое слово было отражено зеркально

var s,s1:string;
    i,j:integer;
    c:char;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s; //добавим пробел в начало для удобства
i:=1;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)>1 then  //если >1 символа
   begin
   //перевернем слово
    for j:=1 to length(s1)div 2 do
     begin
      c:=s1[j];
      s1[j]:=s1[length(s1)-j+1];
      s1[length(s1)-j+1]:=c;
     end;
    //заменим слово
    delete(s,i,length(s1));
    insert(s1,s,i);
   end;
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
delete(s,1,1);//уберем первый пробел
write(s);
end.