Нахождение квадратов первых k элементов массива

[JaZZ_XVIII]

Требуется найти
unsigned Char (байт)
unsigned short int (слово)
Требуется найти произведение квадратов первых k элементов массива.
A={a[i]} удовлетворяющих условию a[i]>=c+d;

Основная вставка должна производится через Pascal.
Есть исходник :

uses crt;

var
mas:array[0..10] of shortint;
n,l,i:byte;
sum:shortint;
label iter,cikl,izmen,xend;
begin
   clrscr;
   write('mas[n]: ');
   read(n);
   write('L: ');
   read(l);
   randomize;
   for i:=0 to n-1 do
       begin
         mas[i]:=random(10)-random(10);

           write(mas[i]:3);
{           read(mas[i]);}
       end;
   sum:=0;
   i:=n-l;

   asm
        xor ax,ax
       	lea si,mas
       	add si,word ptr i
	mov bl,0
        	mov cl,i

	iter:

	cmp cl,n
	jb cikl
	jmp xend

	cikl:

	cmp [si],bl
	jg izmen
	inc cl
        	inc si
	jmp iter

	izmen:

	add al,[si]
	inc si
        	inc cl
	jmp iter

        xend:
        mov sum,al
   end;
   writeln('Cymma = ',sum);
   readkey;
end.

Как довести его до этого условия..
Кто может помочь с кодом и комментариями, буду признателен.