Помогите решить на PASCAL ABC!Только он!В Массиве A(n) отыскать малый элемент

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50).Println(',');
  Writeln('Малое отрицательное нечетное равно ',
    a.Where(x-gt;(xlt;0) and Odd(x)).Min)
end.

Тестовое решение:
n= 15
-44,-27,40,6,-43,-19,-37,-8,-31,0,16,41,34,-26,17
Минимальное отрицательное нечетное одинаково -43

Var a:array[1..1000] of integer; 
i,min,n:integer; 
begin 
writeln('Введите количество частей массива'); 
readln(n); 
for i:=1 to n do read(a[i]); 
if (a[i]lt;0) and (a[i] mod 2lt;gt;0) then min:=a[i]; 
for i:=1 to n do 
if (a[i]lt;0) and (a[i] mod 2lt;gt;0) and (a[i]lt;min) then min:=a[i]; 
if min=0 then writeln('Нечетных и отрицательных элементов в массиве нету') else 
writeln('Минимальный, нечетный, отрицательный элемент массива - ', min); 
end.