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

2) USES CRT; VAR A:array[0..200] of integer;           i,max,s:integer; BEGIN CLRSCR; Randomize;       Writeln('Дан массив:');     for i:=0 to 200 do            begin                   A[i]:=-100+random(150);                   Write(A[i],'   ');            end;        s:=0;           max:=A[0];        for i:=0 to 200 do                begin                       if A[i] > max then max:=A[i];                       if A[i]>=0 then s:=s+1;                end;                    Writeln;            Writeln('Максимальный элемент массива  = ', max);            Writeln('Кол-во положительных элементов = ',s); READLN; END.