Здравтсвуйте эксперты! Помогите решить задачу, Дана программма на паскале заменить оператор for ,repeat, while на код ассемблера,!!
Пример!!!!

{1} program test0000;
{2} var
{3} c,d: byte;
{4} k: integer;
{5} A: array [3..10] of integer;
{6}
{7} begin
{8} k:=6;
{9} d:=0;
{10} for c:=3 to 10 do
{11} begin
asm
{12 if k<d then}
mov al,d
xor ah,ah
cmp ax,k
jng @20

{13 d:=d+k}
mov al,byte ptr k
add byte ptr d,al
jmp @30

{14 else d:=k-d;}
@20:
mov al,d
mov dl,byte ptr k
sub dl,al
mov byte ptr d,dl
{15 A[c]:=d;}
@30:
mov al,d
xor ah,ah
mov bl,c
xor bh,bh
shl bx,1
mov word ptr A[bx-6],ax
{16 k:=k+1;}
inc word ptr k
end; {asm}
{17} end;
{18} for c:=3 to 10 do
{19} write (A[c]:4);writeln;
{20} end.
Это уже замененная!
----------------------------
Вот мой вариант:



Приложение:
21. Program test0021;
Var
i,m:integer;
A:array [13..21] of integer;
Begin
m:=0;
i:=21;
repeat
m:=m+i;
if m<50 then
A[i]:=5*i
Else A[i]:=m;
dec(i)
until i<13;
for i:=13 to 21 do
write(A[i]:4);writeln;
End.