Паскаль. . 1)в программе нужно удалить все символы которые стоят на четных местах.

uses crt;
var
s, f: string;
i: integer;

begin
write('введите строку: ');
readln(s);
for i:=length(s) downto 1 do
if i mod 2=0 then
delete(s,i,1);
writeln('результирующая строка: ',s);
end.