%include "rw32.inc"
section .data
    pole   dd    42.4, 456.78, 884.1, 12.45, 94.0, 22.2
    n      dd    6

section .text
main:
    mov ecx, [n]
    fldz   ; prvni maximum
.cyclus:
    fld dword [pole + (ecx-1) * 4]
    fcomi st1
    jb .skip  ; st0 < st1 => skip
    fxch st0, st1  ; prohozeni
.skip:
    fcomp  ; just pop
    loop .cyclus
end:
    call WriteDouble
    ret