Разность чисел в виде массивов в Turbo Pascal

Происходит ввод числа в виде массива (не стал вставлять первую часть кода, там все нормально), и конечная цель, это найти разность первого массива со вторым, то есть третий массив выдает разность двух массивов.
И как его исправить, чтобы можно было получить отрицательный массив? (Происходит вычитание цифр по очереди, но если второе число будет больше первого, происходит ошибка)

for i:=1 to N do
begin
p:=a1[i];
p2:=a2[i];
asm
mov eax, p
mov ebx, p2
sub eax, ebx
mov res, eax
end;
a3[i]:=res;
end;
for i:=1 to N do
writeln(a3[i],' ');