Дано число 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;

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

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;

тут ты еще не закончил ввод, а уже пытаешься работать с массивом.

Client, а почему нельзя считать их количество "на лету"?
Wild_klas, а зачем там второй цикл-то? И почему p - real?
Прочитал число - если четное, прибавил 1 к количеству четных. И все. Это по этому пункту.
А по другим - понадобится еще 2 переменных - "самое большое нечетное" и "самое маленькое нечетное".

эм... тут можно все "на лету", и без массивов.