Если элемент массива четный, то прибавить к нему первый, если нечетный - последний элементы массива - Pascal ABC

Формулировка задачи:

Написать программу изменения элементов массива. Если элемент четный, то прибавить к нему первый, если нечетный - последний массива. Первый и последний элементы не изменять.

Решение задачи: «Если элемент массива четный, то прибавить к нему первый, если нечетный - последний элементы массива»

textual
                            Листинг программы 
                        

                            const MaxN = 10; //Количество элементов в массиве
type MyArray = array[1..MaxN] of Integer;
//Процедура для заполнения массива случайными числами
Procedure InitMasRandom(var n : Integer; var A : MyArray);
const ot = 1; ido = 10;
var i : Integer;
begin
  repeat
  write('Ввдите размер массива от 3 до ',MaxN,' n=');
  readln(n);
  until n in [3..MaxN];
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    A[i] :=Random(ot, ido);
    Write(A[i] : 4);
  end;
  WriteLn;
end;
 
//Основная программа
procedure necchot(n : integer; var A : MyArray);
var
  i:integer;
begin
for i:=2 to n-1 do
if A[i] mod 2 = 0 then A[i]:=A[i]+A[1]
else A[i]:=A[i]+A[n];
end;
 
//Процедура для вывода данных
Procedure WriteMas(n : Integer; A : MyArray);
var i : Integer;
begin
writeln('Измененнный массив');
for i := 1 to n do
Write(A[i] : 4);
WriteLn;
end;
var A : MyArray; //Рабочий массив
    n: integer;
begin
InitMasRandom(n,A);   
necchot(n,A);
WriteMas(n,A);
end.
                        