Помогите с информатикой! Язык программирования Паскаль

uses
Crt;
const
N = 10;
var
P: array[1..N] of Integer;
i, CountNeg, SumPosit: Integer;
begin

RandomIze;
for i:= 1 to N do
P[i]:= random(25+37+1) - 25;

ClrScr;
Write('P= ');
for i:= 1 to N do
write(P[i], '; ');
writeln;
Writeln;

CountNeg:= 0;
for i:= 1 to N do
if P[i]<0 then
inc(CountNeg);
writeln('Count negative elements = ', CountNeg);

SumPosit:= 0;
for i:= 1 to N do
if P[i]>0 then
inc(SumPosit, P[i]);
writeln('Sum of positive elements= ', SumPosit);

for i:= 1 to N do
if P[i] = 0 then
P[i]:= -123;

Write('P= ');
for i:= 1 to N do
write(P[i], '; ');
ReadKey;
end.

Чот только условие вижу, а с чем помогать не вижу

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

1)
var i,n,s,m:integer;
a:array of integer;
begin
write('Введите количесво элементов >>> ');
readln(n);
setlength(a,n);
for i:=0 to n-1 do
begin
a[i]:=random(62)-25;
write(a[i],' ');
if a[i]<0 then m+=1;
if a[i]>0 then s+=a[i];
if a[i]=0 then a[i]:=-123
end;
writeln('');
writeln('===================================');
writeln('Количесво отрицательных: ',m);
writeln('Сумма положительных: ',S);
for i:=0 to n-1 do
write(a[i],' ');
end.

2)
var i,s,n:integer;
a:array[1..27] of integer;
begin
for i:=1 to 27 do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i] mod 7 = 0 then
begin
s+=a[i];
n+=1;
end;
end;
writeln('');
writeln('Сумма: ',s);
writeln('Количество: ',n);
end.

1. ввод массива сама
var
summinus,sumplus,i : integer;
a : array of byte;
N : integer;
begin
...
ввод массива
...
SumMins:=0;
SumPlus:=0;
for i:=0 to N-1 do
begin
if a[i]>0 then Inc(SumPlus);
if a[i]<0 then Inc(SumMinus);
if a[i]=0 then a[i]=-123;
end;
writeln('Minus = ',SumMinus,' Plus = ',SumPlus);
readln;
end;
2.ввод массива сама
var
sum,num,i : integer;
a : array [1..27] of integer;
begin
...
ввод массива
...
Sum:=0;
Num:=0;
for i:=1 to 27 do
if (a[i] mod 7)=0 then
begin
Inc(Num);Sum:=Sum+a[i];
end;
writeln('Sum = ',Sum,' Num = ',Num);
readln;
end;