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

Пример выполнения программы на Pascal ABCvar a,b,c:integer;d:array [1..20] of integer;beginrandomize;for a:=1 to 5 do begind[a]:=random(-100,100);if d[a] mod 2 = 0 then writeln(\'Чётный элемент массива ==> \',d[a])else writeln(\'Нечётный элемент массива ==> \',d[a]);end;end.Пометка:Вместо d:array [1..20] можно ввести любую константу.