Отредактируйте заданное предложение, удаляя из него все слова с чётными номерами — Pascal(Паскаль)

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1:string;
    i,j,n,k:byte;
begin
writeln('Введите предложение');
read(s);
n:=0;
i:=1;
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  n:=n+1;
  k:=i;j:=0;
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    j:=j+1;{считаем буквы}
    k:=k+1;{идем вперед}
   end;
  if n mod 2=0 then {если номер четный}
   begin
    delete(s,i,j);
    i:=i+1;
   end
  else i:=i+j;{перепрыгиваем}
 end
else i:=i+1;
write(s);
end.