Помогите пожалуйста
Составить программу, которая считывает слово, выводит буквы, стоящие под четными номерами

Спасибо большое

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString;  Range(2,s.Length,2).Select(i->s[i]).Printlnend.ПримерИнформатиканомтк

Program Rick_and_Morty;var s:string;    x,i:integer;Beginwrite('введите слово: ');readln (s); //вводим sx:=length(s); //количество букв в swrite('ответ: ');for i:=1 to x do //цикл от 1 до xbeginif i mod 2 = 0 then //если i четное тоwrite(s[i]); //выводим номер четного элементаend;writeln('');writeln('конец');end.