Даны два массива а(а1,) и в(в1,). найти сумму отрицательных элементов

Var
 A,B: array[1..1000] of integer;
 i, SUM: integer;
begin
 SUM:=0;
 Readln(n);
 for i:=1 to n do
  Readln(A[i], B[i]);
 for i:=1 to n do
  begin 
   if A[i]<0 then
    SUM:=SUM+A[i];
   if B[i]<0 then
     SUM:=SUM+B[i];
   end;
 writeln(SUM);
end.