Ребят помогите с информатикой) 1) Дан массив от 0 до 100. Найти минимальный нечётный элемент массива.
2) Дан массив от -100 до 100 написать количество положительных и максимальный элемент массива. Всё нужно по Паскалю, пожалуйста)

Спасибо огромное))) Только вот как со 2-ым?)

1)USES CRT;VAR A:array[0..100] of integer;            i,min:integer;BEGIN   CLRSCR;   Randomize;      Writeln('Дан массив:');      for i:=0 to 100 do            begin                  A[i]:=random(150);                  Write(A[i],' ');            end;    min:=A[0];   for i:=0 to 100 do              if (A[i] < min) and (A[i] mod 2 <>0) then min:=A[i];   Writeln;      Writeln('Минимальный нечетный элемент массива  = ',min);READLN;END.