Программа на паскале

Дан массив, содержащий 7 положительных целых чисел, не превышающих 300. Необходимо уменьшить (или увеличить) все чётные элементы на одно и то же значение, так чтобы при этом максимальный из них стал равен 12. В качестве результата программа должна вывести изменённый массив, по одному элементу в строке.

const N = 7;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
read(a[i]);
...
end.