Решите задачу по инфе пожалуста.Дано слово,состоящее из чётного числа букв,вывести буквы,стоящие на чётных местах.

Var s: string; i: byte;
begin
  write(Введите слово:   );
  readln(s);
  writeln;
  i:=2;
  while ilt;=length(s) do begin
    write (s[i]); 
    i:=i+2
  end
end.

--------------------------------------
Введите слово:   Калифорния

аионя