Дан массив. Вывести все четные элементы

if (i mod 2) = 0 then

k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then{i mod 2=0 это элементы с четными номерами}
 begin
  k:=1;
  write(a[i],' ')
 end;
writeln;
if k=0 then writeln('Четных элементов нет');

var
a: array[1..100] of Integer;
i,m: integer;
 
begin
 
  assign(input, 'input.txt');
  reset(input);
 
    ReadLn(m);
 
    for i:= 1 to m do
    begin
      Read(a[i]);
    end;
  close(input);
 
  assign(output, 'output.txt');
  rewrite(output);
 
  for i:= 1 to m do begin
    if a[i] mod 2 = 0 then
      Write(a[i], ' ');
  end;
 
  close(output);
 
  end.

var
a: array[1..100] of Integer;
i,m: integer;
 
begin
 
    ReadLn(m);
 
    for i:= 1 to m do
    begin
      Read(a[i]);
    end;
  
  for i:= 1 to m do begin
    if a[i] mod 2 = 0 then
      Write(a[i], ' ');
  end;
 
  end.