Дан массив из 100 натуральных чисел. Вывести на экран четные числа

Const n=100; 
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(100);
 write(a[i]:4);
 end;
writeln;
writeln(Четные числа:);
for i:=1 to n do
  if a[i] mod 2 = 0 then write(a[i]:4);
writeln;
end.

Пример (для n=10):
  80  90   8  37  95  34  42  33  51  33
Четные числа:
  80  90   8  34  42