Вставляю код сортировки в Delphi
написанную на ASM
. В консоли вылазит ошибка
Runtime error 216 at 00403AE5
В чем может быть проблема? Читал, что ошибка из-за неправильного обращения к памяти, но никак не могу придумать и понять, как это можно исправить.
program Project2;
{$APPTYPE CONSOLE}
const N=2;
type TArr = array[1..N] of integer;
var Arr:TArr;
i:integer;
begin
for i:=1 to N do readln(Arr[i]);
asm
@vozv:
mov si,1
mov ecx,N
mov edx,1
@sort:
xor eax,eax
mov eax,dword[Arr[si]]
cmp eax,dword[Arr[si+1]]
jnl @skiper
xchg eax,dword[Arr[si+1]]
mov dword[Arr[si]],eax
xor edx,edx
@skiper:
inc si
loop @sort
or edx, edx
jz @vozv
end;
for i:=1 to N do write(Arr[i], ' ');
readln;
end.