Дана непустая строка s. вывести четные символы строки.

Var
  i:integer;
  s,t:string;
begin
writeln ('Введите строку');
readln(s);
i:=2;
while i<=length(s) do
  begin
  t:=t+s[i];
  i:=i+2;
  end;
writeln(t);
end.