Отсчет времени в pascal с помощю встроенного assemblera?

[Geddar]

Есть программа на assemblere

program m1_z1;
uses crt;
var a,x:array[1..10] of integer;
    b,co,i:integer;
label m,m1,m2,m3,m4,m5;
begin
 co:=1;
 randomize;
 clrscr;
 asm

  lea Si,A
  mov Cx,10
m:
  push Si
  push Cx
 end;
 b:=random(10)-5;
 write(b:3,' ');
  asm
  pop Cx
  pop Si
  mov Ax,b
  mov [Si],Ax
  inc Si
  inc Si
  loop m
  {preabrozovanie}
  end;
  writeln;
  writeln('jhkj');
  asm
  xor Bx,Bx
  lea Si,a
  lea di,x
  mov Cx,10
m4:
  mov bx,co
  mov ax,[si]
  cmp ax,bx
  jge m1
  mov bx,-1
  mov [di],bx
  jmp m3
m1:
  mov bx,co
  mov ax,[si]
  cmp ax,bx
  je m2
  mov bx,1
  mov [di],bx
  jmp m3
m2:
  mov bx,0
  mov [di],bx
m3:
  inc si
  inc si
  inc di
  inc di
  loop m4
 end;
writeln;
writeln;
asm
lea si,x
mov cx,10
m5:
mov ax,[si]
mov b,ax
push si
push cx
end;
write (b:3,' ');
asm
pop cx
pop si
inc si
inc si
loop m5
end;
readln;
readln;

end.

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

[Stilet]

Ну перед loop желательно Delay поставить.
Разорви его от остальных команд, или втупую замени его на For

[Geddar]

Желательно написать именно на асемблере,

Ну перед loop желательно Delay поставить

Это как? Просто поставить и все

...
  inc si
  inc si
  inc di
  inc di
  Delay
  loop m4

а что имнно эта команда дает, как ей сообщить время на которое паузу ставить надо?
P.S.: Задачу другу пишу, у него 40 мин осталось, я уже весь интернет перерыл, ничего не нашел, вы последняя надежда