Удалить из строки слова, которые начинаются на букву "r" и имеют нечётную длину

program v_2;
uses crt;
var i:integer;
s,sk,k:string;
begin
clrscr;
writeln('vvedite stroku');
readln(s);
s:=' '+s;
k:=s;
sk:='';
for i:=length(s) downto 1 do begin
if s[i]<>' ' then sk:=s[i]+sk
             else if sk<>'' then
             if (pos('я',sk)=1) and (length(sk) mod 2<>0) then  begin
             delete(k,pos(sk,k),length(sk));
             end;
             sk:=''
             end;
writeln(k);
end.

uses crt;
var str:string;
    i,j,k:integer;
begin
clrscr;
writeln('Введите строку, содержащую слова начинающиеся на букву r');
readln(str);
str:=' '+str+' ';{добавим пробел в начало и в конец для удобства}
i:=2; {начнем со 2 символа}
while i<=length(str) do {пока не конец}
if (str[i]='r') and(str[i-1]=' ') then{если r, а перед ней пробел}
 begin
  j:=i;
  k:=0;
  while(j<=length(str))and (str[j]<>' ')do {пока не конец строки и не пробел}
   begin
    k:=k+1;{считаем}
    j:=j+1;{идем вперед}
   end;
  if odd(k) then delete(str,i,k){если длина нечетная, удаляем слово}
  else i:=i+k; {иначе перешагиваем}
 end
else i:=i+1;{иначе на 1 вперед}
delete(str,1,1);{удалим первый пробел}
writeln(str);
readln
end.