Удалить из предложения все слова с нечетными номерами и переворачивая слова с четными номерами

]Program n1;
 
Var slova:array[1..20] of string;
    i,n,r,e:integer;
    s,k:string;
    f:boolean;
Procedure Perevorot(var d:string);
Var t:string;
    e,r:integer;
begin
  r:=length(d);
  t:=d;
  for e:=1 to length(d) do begin
    t[r]:=d[e];
    r:=r-1;
  end;
  d:=t;
end;
begin
 
  writeln('‚Введите слово: ');
  readln(s);
  n:=0;
  k:='';
  for i:=1 to length(s) do begin
    if s[i]=' ' then f:=false
    else f:=true;
    if f then k:=k+s[i]
    else k:='';
    if i=length(s) then begin
      n:=n+1;
      slova[n]:=k;
    end
    else begin
      if (s[i]<>' ') and (s[i+1]=' ') then begin
        n:=n+1;
        slova[n]:=k;
      end;
    end;
  end;
  writeln('получилось');
  for i:=1 to n do begin
    if i mod 2 <>0 then begin
      perevorot(slova[i]);
      write(slova[i],' ');
    end;
  end;
  writeln;
  write('„для продолжения нажмите Enter');
  readln;
end.

uses crt;
var s,s1,s2:string;
    i,j,k,n:byte;
    c:char;
begin
clrscr;
writeln('Введите последовательность слов, разделенных пробелами');
readln(s);
s2:='';
n:=0;
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
 begin
  n:=n+1;
  k:=i;s1:='';
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    s1:=s1+s[k];
    k:=k+1;{идем вперед}
   end;
  if n mod 2=0 then
   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;
    s2:=s2+' '+s1; {пишем в новую строку}
   end;
  i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;
write(s2);
readln
end.