Помогите с зачетом, сам я в ассемблере не понимаю надо написать 2 программы в паскале с встраиваемыми модулями ассемблера. Задачи:

1) Найти сумму натуральных чисел меньшик K.

2) Найти частное между 2 числами введенными с клавиатуры. Эту я сделал но она не работает вот листинг:

var a,b:integer;
chas:integer;
begin
writeln('Vvedite a ');
readln(a);
writeln ('Vvedite b');
readln(b);
asm
mov ax,a
mov bx,b
div ax,b
mov chas,ax
end;
writeln('Chasnoe', chas);
end.