поиск элементов массива на ассемблере,встроенном в паскаль

[Ариадна]

подскажите,пожалуйста,можно ли улучшить данную программу поиска на встроенном в паскаль ассемблере отрицательных, положительных и нулевых элементов в одномерном массиве

program massiv;
uses crt;
const n=5;
var A:array[1..N]of integer;
    i:1..N;
    X,Y,Z:INTEGER;
begin
clrscr;
for i:=1 to n do
readln(A[i]);
asm
mov X,0
MOV Y,0
MOV Z,0
LEA SI,A
MOV CX,5
@1:
 MOV AX,[SI]
 CMP AX,0
 JG @6
 JL @3
 INC Y
 INC SI
 INC SI
 LOOP @1
 JCXZ @K
@3:
 INC Z
 INC SI
 INC SI
 LOOP @1
 JCXZ @K
@6: INC X
INC SI
INC SI
LOOP @1
JCXZ @K
@K:NOP
END;
WRITELN('CHISLO POL=',X);
WRITELN('CHISLO 0=',Y);
WRITELN('CHISLO OTRIZ=',Z);
READLN;
END.

[veniside]

asm
  sub bx, bx
  mov X, bx
  MOV Y, bx
  MOV Z, bx

  LEA SI, A
  MOV CX, N

@mainloop:
  lodsw
  CMP AX, bx
  JG @above
  JL @below

  INC Y
  jmp @nextitem

@below:
  INC Z
  jmp @nextitem

@above:
  INC Y

@nextitem:
  LOOP @mainloop

end;

[Ариадна]

Большое спасибо!

[veniside]

кстати, там у меня ошибка:

@above:
  INC Y

Должно быть INC X. А всё почему? Да потому, что кто-то выбрал "удачные" названия для переменых )