Подсчёт количества повторов элементов одномерного массива

[tane]

Ребята, помогите пожалуйста реализовать данную задачу с помощью ассемблерных вставок.

Задание звучит так:
введение начальных данных и выведение результатов обеспечить языком Паскаль(С++), а обработку как ассемблерную вставку.

Подсчёт количества повторов элементов одномерного массива - Pascal ABC

Вот программа на Паскале(АВС):

uses crt;
const nmax=100;
var a,a1:array[1..nmax] of integer;
    n,i,j,k,c:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:4);
 end;
writeln;
a1:=a;{сохраним исходный массив}
while n>0 do
 begin
  c:=a1[1];{первый элемент}
  k:=0; {количество}
  for i:=n downto 1 do{идем с конца}
  if a1[i]=c then
   begin
    k:=k+1; {считаем и удаляем}
    if i=n then n:=n-1
    else
     begin
      for j:=i to n-1 do
      a1[j]:=a1[j+1];
      n:=n-1;
     end;
   end;
  writeln('Число ',c,' встречается ',k,' рз.');
 end;
readln
end.