Срочно! В Паскале ABC.Дано слово S1 получить слово S2 образованное буквами слова S1, стоящими на четных местах.Решить циклом с параметром.Заранее спасибо.

Program Slova;

Uses Crt;

var s1,s2:string;

        i,k:integer;

begin

     clrscr;

     s2:='';

     write('Введите слово: ');

     readln(s1);

     k:=length(s1);

     for i:=1 to k do

         if (i mod 2)=0 then s2:=s2+s1[i];    

    writeln('Полученное слово:',s2); 

    readkey;

end.