В строке перевернуть четные слова и удалить нечетные

program strs;
var s:string;
    buf:char;
    i,j,ii,jj:integer;
    flag:boolean;
begin
 readln(s);
 j:=1;
 i:=1;
 flag:=true;
 insert(' ',s,length(s)+1);
 while i<=length(s) do
  begin
       if (s[i]=' ') and (flag=true) then
          begin
               delete(s,j,i-j);
               flag:=false;
               i:=j;
          end
       else
       if (s[i]=' ') then
       begin
        flag:=true;
        ii:=i;
        jj:=j;
  while (jj<ii) do
   begin
   buf:=s[ii];
   s[ii]:=s[jj];
   s[jj]:=buf;
   ii:=ii-1;
   jj:=jj+1;
   end;
        j:=i;
       end;
       i:=i+1;
  end;
  delete(s,1,1);
  writeln(s);
  readln;
end.

for i:=1 to length(s1) div 2 do
 begin
  buf:=s1[i];
  s1[i]:=s1[length(s1)-i+1];
  s1[length(s1)-i+1]:=buf;
 end;

uses crt;
var s,s1,s2:string;
    c:char;
    i,n:byte;
begin
clrscr;
writeln('Введите строку, слова отделены одним пробелом:');
readln(s);
s:=s+' ';
s2:='';
n:=0;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  n:=n+1;
  if n mod 2=0 then
   begin
    for i:=1 to length(s1) div 2 do
     begin
      c:=s1[i];
      s1[i]:=s1[length(s1)-i+1];
      s1[length(s1)-i+1]:=c;
     end;
    s2:=s2+s1+' ';
   end;
  delete(s,1,pos(' ',s));
 end;
delete(s2,length(s2),1);
write(s2);
readln
end.