Заменить все положительные значения близжайшими четными

program xlx;

{$APPTYPE CONSOLE}
const n = 15;
var
a : array[1..n] of double;
ii : integer;

begin
  for ii := 1 to n do
  begin
    write('a[',ii,']=');
    readln(a[ii]);
  end;
  for ii := 1 to n do
    if a[ii] > 0
    then
      if (trunc(a[ii]) mod 2) = 0
      then
        a[ii] := trunc(a[ii])
      else
        a[ii] := trunc(a[ii])+1;
  for ii := 1 to n do
    writeln('a[',ii,']=',a[ii]:8:3);
  readln;
  readln;
end.