Дано слово 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.