Помогите пожалуйста написать программу

Program Free_Pascal; // верси 2,6,0Uses crt; // дополнительные модули, можно не объявлятьconst N=10; // число вводных var a: array[1… N] of integer; // объявляем векторный массив (одномерный) i,col,pr: integer; // col — колличество, pr — произведение beginclrscr; // очистка экрана col: =0; // кол-во изначально 0 pr: =1; // произведение изначально 1 for i: =1 to N do begin read (a[i]); // вводим произвольные числа if (i <= 5) and (a[i]>0) then col: =col+1 else if (i>5) and (a[i]<0) then pr: =a[i]*pr; end; writeln ('Кол-во положительных чисел из 5 первых: ',col); writeln ('Произведение отрицательных чисел после 5 первых: ',pr); readkey; end.