ОООЧЕНЬ НУЖНА ПОМОЩЬ!...

ОООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ (ХОТЯ БЫ ДВЕ,ПОЖАЛУЙСТА) В ПАСКАЛЕ ABC! 1. Дан массив. Все элементы уменьшить на число a.2. Дан массив целых чисел. Верно ли,что сумма элементов массива есть четное число.

 

2. Найти сумму чисел массива в переменной Sum, а потом: 
Writeln('Сумма элементов массива чётное число = ', not odd(Sum));
1.
 
var m:array[1..100] of integer;
        i,a,n:integer;
begin
write('Введите размерность массива: ');readln(n);
write('Введите число А: ');readln(a);
writeln('Введите массив: ');
for i:=1 to N do
readln(m);
writeln('Массив: ');
for i:=1 to N do
M:=m-a;
for i:=1 to N do
write(M,' ');
end.