Четные не четные числа. (Pascal/Delphi) Опции

[Wild_klas]

Дано число n, и последовательность A1..An. Нужно найти:
самое малое нечетное число, которое входит в эту последовательность A1..An, An+1.
и нужно найти самое большое из нечетных чисел и количество четных чисел, которые входят в поледовательность A1..An, An+1.

Начал решать и заступорился на определении парного числа..

Type poslidovnist=array of integer;

Var a:poslidovnist;
    i,n,j:integer;
    p:real;


begin
  P:=0;
  Write('Input n = ');
  Readln(n);
  Setlength(a,n);
  For i:=0 to n-1 do
  Begin
    readln(a[i]);
     Begin
   For j:=0 to n do
     If a[i] mod 2 = 0 Then  p:=p+1;

Помогите пожалуйста, заранее спасибо.