дан массив состоящий из 10 элементов . Вывести на экран сначала элементы , имеющие чётные значения, затем элементы, имеющие нечётные значения .

const    n = 10;var    a: array[1..n] of real;    i: integer;begin    for i := 1 to n do    begin        a[i] := random(100) - 50;        write(a[i], ' ');    end;    writeln();        for i := 1 to n do        if i mod 2 = 0 then            write(a[i], ' ');    writeln();        for i := 1 to n do        if i mod 2 = 1 then            write(a[i], ' ');end.