помогите решить задания в программе паскаль:

1) вычислить произхведение сумм положительных и отрицательных элементов целочисленного массива а[1 ... 10].

program ms;

uses crt;

var a:array [1 ... 10] of integer;

l, k, s, i:longint;

begin

clrscr;

writeln ('Введите 10 элементов массива') ;

for i:=1 to 10 do

begin

readln (a[i]) ;

if a[i]<0 then l:=l+a[i];

if a[i]>0 then k:=k+a[i];

end;

s:=l*k;

writeln (s) ;

readkey;

end.