Даны 2 массива 10 целых чисел, найти сумму элементов кратных 3 и вывести номер отрицательных элементов — Pascal(Паскаль)

program _;
const n=4;
var
a,b:array[1..10] of integer; i,sum,sum1,sum2:integer;
begin
sum1:=0; sum2:=0;
writeln('-');
for i:=1 to n do
begin
readln(a[i]);
if (b[i] mod 3)=0 then sum1:=sum1+a[i];
end;
writeln;
writeln('-');
for i:=1 to n do
begin
readln(b[i]);
if (b[i] mod 3)=0 then sum2:=sum2+b[i];
end;
sum:=sum1+sum2;
writeln('-=  ',sum);
writeln('-');
for i:=1 to n do
begin
if a[i]<0 then write(i,'  ');
end;
writeln;
writeln('-');
for i:=1 to n do
begin
if b[i]<0 then write(i,'  ');
end;
writeln;
end.