В целочисленном массиве найти минимальный элемент среди нечетных и максимальный элемент среди четных элементов

uses crt;
const n=10;
var i,j,k:integer; max,min:integer; S,buf:real; f:text; 
const x:array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);
begin 
assign(f,'array.pas');
rewrite (f);
writeln (f); 
writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');
min:=0;
max:=0;
writeln;
writeln;
  For i:=1 to 9 do 
  if x[i] mod 2 = -1 then  if x[i]<x[i+1] then begin
                                               min:=min+x[i]; 
                                               write ('минимальное нечетное x[',i,']='  ,x[i]);
                                               end;
  writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}
  For i:=1 to 9 do                                             
  if x[i] mod 2 = 0  then  if x[i]>x[i+1] then begin 
                                               max:=max+x[i]; 
                                               write ('максимальное четное x[',i,']='  ,x[i]);
                                               end;
                                               writeln;
                                               writeln;
   S:=0;                                            
   For i:=2 to 9 do
   begin
   S:=S+x[i];   
   writeln('сумма элементов между min нечетным и max четным = ',S:4:0);   
   end;
   
   writeln;
   writeln;
   
   {поменять местами максимальное четное с минимальным нечетным}
   
 
end.

t:=A[imin];
A[imin]:=A[imax];
A[imax]:=t;

imin:=1;
For i:=2 to n do
 if A[i]<A[imin] then imin:=i;

For i:=1 to n do
 write(X[i]:5);