Помогите пожалуйста решить задачу. cформировать два массива один из отрицательных другой из положительных чисел и найти их сумму, разность и произведение. решить на паскале

var ar1:array[1..10] of integer; ar2:array[1..10] of integer; i:integer; begin; randomize; writeln('+ Array'); for i:=1 to 10 do begin; ar1[i]:=random(1,10); write(ar1[i]:4); end; writeln; writeln('- Array'); for i:=1 to 10 do begin; ar2[i]:=random(-10,-1); write(ar2[i]:4); end; writeln; writeln('+'); for i:=1 to 10 do write(ar1[i]+ar2[i]:4); writeln; writeln('-'); for i:=1 to 10 do write(ar1[i]-ar2[i]:4); writeln; writeln('*'); for i:=1 to 10 do write(ar1[i]*ar2[i]:4); end.