Напистаь программу удаления из строки чётных или нечётных чисел

С помощью такой программы можно удалить все буквы, которые стоят на четных местах:

1. Var s:string;

2. i:byte;

3. Begin

4. write ('Строка: '); readln (s);

5. For i:=Length (s) downto 1 do

6. if (i mod 2 = 0) then Delete (s, i, 1);

7. writeln (s);

8. End.

А вот так можно просто отсортировать все нечетные символы:

1. task1 : : [Int] - > [Int]

2. task1 = filter (odd)