Помогите с ASM

[RomTB]

Времени мало(((Всё уходит на курсовой проект...а должок за прошлый семестр надо,но всё никак сообразить с этой задачкой не могу...
Помогите пожалуйста.
Задача следующая :
Даны массивы Х, содержащий 7 элементов и Y, содержащий 8 элементов

[RomTB]

Плиииз...срочно надо(((

[RomTB]

Плиииз...срочно надо(((

[RomTB]

Вот текст программы ,но почему то она считает всегда одно и тоже число ...


program labxy;
uses crt;
var x:array [1..7] of shortint;
y:array [1..8] of shortint;
i:integer;
function asmfunc (x:array of shortint;y:array of shortint):integer;
Begin
asm
push ds
push si
push dx
push bx
push cx

lds bx,x
mov si,6
xor dx,dx

@next1:
mov al,bx[si]
imul al
add dx,ax
dec si
jns @next1

xor ax,ax
mov bx,7
xchg ax,dx
div bx

lds bx,y
mov si,7
mov dx,ax
xor cx,cx
@next2:
mov al,bx[si]
cbw
cmp ax,dx
jge @bvr
inc cx

@bvr:
dec si
jns @next2

mov [bp-2],cx

pop cx
pop bx
pop dx
pop si
pop ds
end;
end;


begin
clrscr;
writeln(',massiv X:');
for i:=1 to 7 do begin
write('x[',i,']=');readln(x[i])
end;
writeln(',massiv Y:');
for i:=1 to 8 do begin
write ('y[',i,']=');readln(y[i]);
end;
clrscr;
writeln('x[i]:');
for i:=1 to 7 do write (x[i]:8);
writeln;
writeln('y[i]:');
for i:=1 to 8 do write(y[i]:8);
writeln;
write('result: ');
writeln(asmfunc(x,y));
readkey;
end.

[RomTB]

неужели никто в асме ни ни ?