Удалить четные по порядку слова в входной строке

uses crt;
 
var
  s, s1: string; 
  k, j: integer;
 
begin
  clrscr; 
  repeat{в цикле проверяем, чтобы введенная строка заканчивалась точкой} 
    writeln('Vvedite frazu, zakanchivaushuusa tochkoj:'); 
    readln(s); 
  until pos('.', s) = length(s); 
  s[length(s )] := ' ';{заменяем точку в конце на пробел (для удобства работы)} 
  k := 0;  {обнуляем счетчик} 
  repeat
    j := pos(' ', s );{первый пробел} 
    k := k + 1;  {увеличиваем счетчик} 
    if k mod 2 = 1  then  {если нечетный} 
    begin
      s1 := s1 + copy(s, 1, j ); {копируем слово с пробелом в новую строку} 
      delete(s, 1, j);  { удаляем его } 
    end 
    else   delete(s, 1, j ); {если четное, то просто удаляем} 
  until j = 0; {если пробелы кончились, заканчиваем} 
  s1[length(s1)] := '.';{заменяем пробел в конце на точку} 
  writeln; 
  write(s1); 
  readln
end.