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

var   s1, s2: string;   i: integer;   begin   s2:= '';  //Присваиваем строке начальное пустое значение   writeln('Введите слово s1');   readln(s1);   for i:= 1 to length(s1) do  //length(s1) - длина строки s1     if i mod 2 = 0 then s2:= s2 + s1[i];   writeln('Полученное слово:  ', s2); end.