Напишите программу, удаляющую в произвольном слове все буквы, стоящие на четных позициях — Pascal(Паскаль)

var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then delete(s,i,1);
writeln(s);
end.