Вычисление количества элементов в массиве. Паскаль + ассемблерная вставка - Assembler

Формулировка задачи:

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

Решение задачи: «Вычисление количества элементов в массиве. Паскаль + ассемблерная вставка»

Листинг программы

asm
  cld
  les di, A    {заносим в пару es:di  адрес массива}
  mov dx,N  {помещение в dx значение N}
  mov cx,dx { перемещает  данные из dx  в регистр cx}
  xor ax,ax  {обнуление ax}
  repne scasw   {?}
  jne @@nodec {если нет, прыгаем на @@nodec , если да, идем на следующую команду}
  dec dx           {уменьшаем счетчик циклов}
@@nodec:
  sub dx,cx   {вычесть dx из cx}
  mov ax,dx { перемещает  данные из dx  в регистр ax}
end;

Объяснение кода листинга программы

asm - начало ассемблерного блока
cld - подготовительные операции для работы с памятью
les di, A - заносим в пару es:di адрес массива
mov dx,N - помещаем в dx значение N
mov cx,dx - перемещает данные из dx в регистр cx
xor ax,ax - обнуление ax
repne scasw - выполняет команду повторения, сравнивая байты в dx и cx, и вычитая счетчик из dx
jne @@nodec - если нет, прыгаем на @@nodec, если да, идем на следующую команду
dec dx - уменьшаем счетчик циклов
@@nodec: - метка для перехода
sub dx,cx - вычитает dx из cx
mov ax,dx - перемещает данные из dx в регистр ax
end - конец ассемблерного блока