Задача(одномерный масив)

[Finn4ik]

Здравствуйте помогите пожалуйста решить (если можно полное решение)
Одномерный массив А длиной N<=25 заполнить случайными числами из диапазона [–18..10]. Составить программу определения:
• первого положительного элемента массива;
• максимального среди четных элементов массива;
• количества отрицательных элементов массива значения, которых лежат в диапазоне [y1..y2].

[iBuTTHead]

Заполнение массива случайными величинами:

randomize;
for i:=1 to n do
     a[i]:=random(50)-25;

Нахождение первого положитльного.

i:=1;
while a[i]<=0 do
    i:=i+1

Нахождение максимального:

max:=0;
for i:=1 to n do
     begin
          i:=i+1;
          if a[i]>max then
              max:=a[i]
     end;

Количесвто отр эллементов которые лежат в числовом диапазоне от у1 до у2.

for i:=1 to n do
     if (a[i]<0)and(a[i]>=y1)and(a[i]<=y2) then
        k:=k+1

[Finn4ik]

Спасибо огромное