Дано слово s1,получить слово s2,образованное буквами слова s1,стоящее на четных местах

В программе использована возможность представления строковой переменной в виде массива символов.

program word;var s1, s2: string;begins2:= \'\';writeln(\'Введите слово\');readln(s1);for i: integer:= 1 to length(s1) do if i mod 2 = 0 then s2 := s2 + s1[i];writeln(s2)end.