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

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

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