Найти количество отрицательных элементов массива - Assembler (225976)

procedure TForm5.Button1Click(Sender: TObject); 
 
var i, a, b:integer; 
begin 
randomize; 
for i := 0 to 9 do 
begin 
a:=random(2); 
if a=0 then b:=-1 else b:=1 ; 
StringGrid1.Cells [i,0]:=inttostr(b*random(10)); 
 
end; 
 
end; 
 
procedure TForm5.Button2Click(Sender: TObject); 
var mas:array[0..9] of integer; 
i,rez,min,a:integer; 
begin 
for i:=0 to 9 do 
mas:=strtoint(stringgrid1.cells[i,0]); 
 
asm 
 
// Сумма элементов массива 
Lea ESI, mas // Взятие адреса массива 
xor eax, eax 
xor edx, edx 
Mov ecx, 0Ah // Заносим число элементов 
@1: add eax, [esi][edx*4] 
inc edx 
loop @1 // ECX=ECX-1, и если ECX не равен нулю, то переход по метке 
mov rez, eax 
 
//Кол-во отрицательных элементов массива 
 
............................................
// Вывод результатов 
 
memo1.Lines.add('Сумма элементов массива: '+ inttostr(rez)); 
memo1.Lines.add('Кол-во отрицательных элементов массива: '+inttostr(min)); 
 
end; 
 
end.