запросить с клавиатуры массив из 10 целых элементов.Четные увеличить на 2,а нечетным присвоить 0 и вывести таблицу на экран

спасибооо

const  N = 10;var  A: array [1..N] of integer;  i: integer;begin  // Ввод и обработка массива  for i := 1 to N do begin    write('Введите ', i, ' элемент -> ');    readln(A[i]);    if (A[i] mod 2 = 0) then      A[i] += 2    else      A[i] := 0  end;  // Вывод полученного массива на экран  write('Массив: ');  for i := 1 to N do begin    write(A[i], ' ');  end;end.