разброс с отрицательными и положительными числами

[Valio]

Ассемблер это чуть сложнее ибо редко на нём чтото пишу.

[veniside]

  asm
	lea	esi, a
	lea	edi, s1

	mov	ebx, m

	push	esi

  @next_col:
	mov	ecx, n
	sub	edx, edx

  @element_loop:
	lodsd
	or	eax, eax
	js	@skip_negative

	add	edx, eax

 @skip_negative:
	add	esi, (m - 1) * 4
	loop	@element_loop

	mov	eax, edx
	stosd

	pop	esi
	inc	esi
	inc	esi
	inc	esi
	inc	esi
	push	esi

	dec	ebx
	jnz	@next_col

	pop	esi
  end;

и да, s1 должен быть объявлен размером m, а не n. Во всяком случае, я так привык, а доки паскаля под рукой нет, так что точно не помню, где там строки, а где столбцы.