Дан массив. определить является ли номер минимального элемента четным

var a:array [1..10] of integer;

i,k:integer;

BEGIN

  read(a);

  k:=1;

  for i := 1 to 10 do

  begin

     if a[k]>a[i] then k:=i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

END.