Паскаль.
Помогите пожалуйста.
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.