С клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на экран все элементы массива.которые стгят

Program Solution;ConstN = 10;VarA:Array[0..N] Of Integer;i,k:Integer;Begink:=0;Randomize;{Заполняем случайно массив}For i:=0 To N DoBeginA[i]:=Random(89)+10;{числа в 10..99}Write(A[i],\' \');End;WriteLn;WriteLn(\'New Array\');{Выводит сначала четные числа}For i:=0 To N DoIf A[i] Mod 2 = 0 ThenWrite(A[i],\' \');{Потом нечетные}For i:=0 To N DoIf A[i] Mod 2 = 1 ThenWrite(A[i],\' \');ReadLn;End.