В массиве все четные элементы обнулить

uses
   crt;
 
type
   MyArray = array [1..20] of integer;
 
const 
   sizeMax = 20;
 
procedure putZero(var a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 1 to size do
     if (a[i] mod 2 = 0) then
       a[i] := 0;
end;
 
procedure putOne(var a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 2 to size - 1 do
     if ((a[i - 1] mod 2 = 0) and (a[i + 1] mod 2 = 0)) then
       a[i] := 1;
end;
 
function getMin(const a : MyArray; const size : integer);    * - процедура вычисления последнего min
var
   i : integer;
   imin : integer;
begin
   imin := 1;
   for i := 2 to size do
      if (a[i] <= a[imin]) then
        imin := i;
   getMin := imin;
end;
 
procedure putZeroAfterMin(var a : MyArray; const size : integer);
var 
   i : integer;
   imin : integer;
begin
   imin := getMin(a, size);
   for i := imin + 1 to size do
      a[i] := 0;
end;
 
procedure putZeroBeforeMin(var a : MyArray; const size : integer);
var
   i : integer;
   imin : integer;
begin
   imin := getMin(a, size);
   for i := 1 to imin - 1 do
      a[i] := 0;
end;
 
procedure deleting(var a : MyArray; var size : integer; const index : integer);
var
   i : integer;
begin
   for i := index to size - 1 do
      a[i] := a[i + 1];
    dec(size);
end;
 
procedure deleteFirst(var a : MyArray; var size : integer):
var
   i : integer;
begin
   for i := 1 to size do
      if (a[i] mod 2 = 0) then
            begin
               deleting(a, size, i);
               exit;
            end;
end;
 
procedure deleteLast(var a : MyArray; var size : integer);
var 
   i : integer;
begin
     for i := size downto 1 do
      if (a[i] mod 2 = 0) then
          begin
             deleting(a, size, i);
             exit;
          end;
end;
 
procedure putAfterFirst(var a : MyArray; var size : integer);
var
   i : integer;
   j : integer;
begin
   for i := 1 to size do
      if (a[i] mod 2 = 0) then
      begin
         inc(size);
         for j := size - 1 downto i + 1 do
            a[i] := a[i - 1];
         a[i + 1] := 0;
         exit;
      end;
end;
 
function getMax(const a : MyArray; const size : integer);
var
   i : integer;
   imax : integer;
begin
   imax := 1;
   for i := 2 to size do
      if (a[i] >= a[imax]) then
        imax := i;
   getMax := imax;
end;
 
procedure deleteAfterMax(var a : MyArray; var size : integer);
var 
   i : integer;
   j : integer;
   imax : integer;
begin
   imax = getMax(a, size);
   for i := imax to size do
     if (a[i] mod 2 = 0) then
       while (a[i] mod 2 = 0) do
       begin
          deleting(a, size, i);
          inc(i);
       end;
end;
 
procedure deleteAfterMinBeforeMax(var a : MyArray; var size : integer);
var
   i : integer;
   imax : integer;
   imin : integer;
begin
   imax := getMax(a, size);
   imin := getMin(a, size);
   if (imin > imax) then
     for i := imax + 1 to imin - 1 do
        if (a[i] mod 3 = 0) then
          deleting(a, size, i);
   if (imax > imin) then
     for i := imin + 1 to imax + 1 do
         if (a[i] mod 3 = 0) then
          deleting(a, size, i);
end;
      
 
procedure writing(const a : MyArray; const size : integer);
var
   i : integer;
begin
   for i := 1 to size do
      write(a[i], ' ');
end;
 
var
   a : MyArray;
   size : integer;
begin
   clrscr;
   write('Please, enter the nubmer of elements ');
   repeat
     {$I-}
     read(size);
     {$I+}
   until((IOResult = 0) and (size > 0) and (size <= sizeMax));
   
   write('Please, enter the elements );
   for i := 1 to size do
      read(a[i]);
   putZero(a, size);
   putOne(a, size);
   {и так далее все процедуры, которые нужны}
end.