Помогите пожалуйста! Буду благодарнаВывести на экран все четные числа из интервала

Var
a:array[1..100] of integer;
i:integer;
c,e:real;
begin
for i:=1 to 100 do begin
  a[i]:=i;
  e:=a[i] div 2;
  c:=a[i]/2;
   if e=c then
     write(a[i],' ');
 end;
for i:=100 downto 1 do
 begin 
  a[i]:=i;
  e:=a[i] div 2;
  c:=a[i]/2;
   if e=c then
     write(a[i],' ');
 end;
end.