[Спайд]

Код:

for i:=1 to N do
 begin
 j:=i;
 while (j>1) and (B[j-1]>A[i]) do
 begin
 B[j]:=B[j-1];
 j:=j-1;
 end;
 B[j]:=A[i];
 end;
 end;

Админ: пользуемся тегами для оформления кода.

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