Задан массив из 7 элементов случайным образом в диапазоне от 5 до 13 вывести на экран новый массив состоящий только из четных значений. Язык Pascal

program mass;

uses crt;

var d:array[1..7] of integer; i:integer;

begin clrscr;

randomize;

write('Исходный массив: ');

for i:=1 to 7 do begin

d[i]:= random(9)+5;

write(d[i],' ');

end;

Writeln;

write('Чётные элементы исходного массива: ') ;

for i:=1 to 7 do

if d[i] mod 2 = 0 then write(d[i],' ');

readln;

end.