помогите решить задачу. Упорядочить элементы, стоящие на четных местах по невозрастанию, а на нечетных – по неубыванию.

const
    n=9;
var
    a: array[1..n] of byte;
    c, k, t: byte;
begin
    randomize;
    writeln('исходный массив: ');
    for c := 1 to n do begin
        a[c] := random(20);
        write(a[c]:3);
    end;
    writeln;

    k := 1;
    while k <= (n - 2) do begin
        c := 1;
        while c <= (n - k) do begin
            if a[c] > a[c + 2] then begin
                t := a[c];
                a[c] := a[c + 2];
                a[c + 2] := t;
            end;
            inc(c, 2);
        end;
        inc(k, 2);
    end;
    k := 2;
    while k <= (n - 3) do begin
        c := 2;
        while c <= (n - k) do begin
            if a[c] < a[c + 2] then begin
                t := a[c];
                a[c] := a[c + 2];
                a[c + 2] := t;
            end;
            inc(c, 2);
        end;
        inc(k, 2);
    end;

    writeln('преобразованный массив: ');
    for c := 1 to n do write(a[c]:3);
end.