массив из натуральных чисел, Pascal+Assembler Опции

[CooLLeR-zzz]

Создать прогрмму , где даны 10 натуральных чисел. Вывести на экран максимальные и минимальные числа.
Сидим с братом и не можем догнать ход проги , поняли одно что можно сделать через память или массив.
Пожалуста помогите народ , буду весьма благодарен !!!!!!!!!!!!!!!!!

[volvo]

Тогда иди сюда:

FAQ: Методы сортировок -> Реализация пузырьковой сортировки на ассемблере

[CooLLeR-zzz]

Вот что у меня получилось пузырьковой сортировкой , но оно не работает , ругается

Program Posled;
Const n=10;
Var
  Mas:Array[1..n] of integer;
  i,j:Byte;
  Exchange:Integer;
Begin
  For i:=1 To n Do Begin
  write('?');
  Readln(Mas[i]);
  End;
procedure BubbleSort(Mas: Pointer; Len: Integer);
Begin
asm
  dec   Len
@CycleExt:
  xor   ebx,ebx
  mov   ecx,Len
  mov   esi,0
@CycleIn:
  mov   edi,Mas[esi]
  cmp   edi,Mas[esi+4]
  jg    @Exchange
  add   esi,4
  loop  @CycleIn
  jmp   @Check
@Exchange:
  mov   ebx,Mas[esi+4]
  mov   Mas[esi+4],edi
  mov   Mas[esi],ebx
  add   esi,4
  loop  @CycleIn
@Check:
  cmp   ebx,0
  je    @Exit
  jmp   @CycleExt
@Exit:
end;
For i:=1 To n Do
Write(Mas[i]:6);
End.

ТЭГИ!

чё за ошибка не могу понять :-(

Сообщение отредактировано: volvo - 2.11.2006 16:08