Задача по Ассемблеру: дан массив из 10 байт. Посчитать количество байт с числом единиц в байте равным трем Мой код:

Mov Cx, 10

Xor BL, BL

Get: Shl Al, 1

Jnc No

Inc Bl

Cmp Bl, 3

Inc Bh

No: Loop Get

Нужно на подобном языке написать, только не понимаю как

3  учеников этого класса любят все три вида спорта

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.

max: =a[1];

for i: =2 to 10 do

begin 

if a[i]> max then

max: =a[i];  

c: =i;  

  end;

min: =a[1];

for i: =2 to 10 do

begin

if a[i]< min then

min: = a[i];

d: =i;

end;

a[c]: =x;

a[c]: =a[d];

a[d]: =x;  

это кусочек программы в паскале для нахождения максимального элемента на скоко я помню 

program xxx;

const n=30;

var    a : array [1..n] of integer;     i, kn, kd : integer; begin

    readln(n);

    kn: =0;

    kd: =0;     for i: =1 to n do        begin

            write('a[',i,']=');

            readln (a[i]);

            if a[i]=0 then kn: =kn+1;

            if a[i]=2 then kd: =kd+1;         end;

    for i: =1 to n do            write(a[i], ' ');

    writeln();     writeln('количество чисел равных 0 -',kn);

    writeln('количество чисел равных 2 -',kd);     readln(); end.