Дана программа(с массивом), нужно написать к ней условие

[СветланаШ]

Program jgt;
Uses crt;
Var
Mas: array[1..15] of integer; I:byte; s,n,p,k,zn: integer;
Begin
Clrscr;
For I:=1 to 15 do begin
Zn:= random(150);
If Zn>75 then k:=1 else k:=-1;
Mas[i]:=k*random(5);
Write('m',I,'=', mas[i]);
End;
For I:=1 to 15 do begin
If mas[i]>0 then p:=p+1 else n:=n+1;
Write('n=',n);
Write('p=',p);
If p>n then begin
For I:=1 to 15 do begin
If mas[i]>0 then s:=s+ mas[i];
Write('s=',s);
End;
End
Else begin
For I:=1 to 15 do begin
If mas[I]<0 then s:=s+mas[i];
Write('s=',s);
End;
End;
End; 
Readkey;
End.

[Stilet]

Дан массив случайных чисел, среди которых те, что более 75 по значению получают значение в диапазоне [-5;5]. Найти количество отрицательных и положительных. Получить суммы найденных групп соответственно если больше положительных или отрицательных. Скинутся преподу на поляну и вывести массив на экрану.