Заполнить массив из 20 элементов случайными числами от -5 до 5. Вывести элементы с чётными числами

Const   n = 20;Var   A:array[1..n] of integer;   i:integer;BeginRandomize;Write('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(11)-5;    Write(' ',A[i])    End;WriteLn;Write('Чётные элементы:');For i:= 1 to N do    if A[i] mod 2 = 0 then Write(' ',A[i]);ReadLnEnd.