Ввести массив из 20 чисел среди чётных элементов массива найти самый маленький — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  var a:array[1..20] of integer;
  i,min:integer;
begin
Writeln('Vvedite 4icla macciva');
For i:=1 to 20 do
begin
Write(i, ' - ');
Readln(a[i]);
end;
 
min:=a[1];
 
For i:=1 to 20 do
If i mod 2=0 then
If a[i]<min then
min:=a[i];
 
Writeln;
Writeln('CambIu malenbkiu element macciva - ', min);
Readln;
 
end.