for i:=1 to SIZE-1 do begin
  min:=i;
  for j:=i+1 to SIZE do 
    if a[j] > a [min]
      then min:=j;
    buf:=a[i]; a[i]:=a[min]; a[min]:=buf;
  end;

TITLE  vuvod_str.

.386
INCLUDE Study32.inc

WriteString PROTO
ReadString PROTO
WriteChar PROTO
WaitMsg PROTO
ExitProcess PROTO

.DATA
	str_in byte 100h dup(?) 
	str_buff byte 0ffh dup(?)
	str1 byte "vvedite stroky simvolov ne bolwe 255 slimvolov",0dh,0ah,0
.CODE
main PROC
	mov edx, offset str1
	call WriteString	;vuvod priglaweni9 vvesti simvolu
	mov ecx, 0ffh
	call ReadString 	; edx - ukazivaet na bufer, ecx- razmer bufera -1 (rezerv pod 0), vozvrawaet v eax koli4estvo vvedenux simvolov
	mov ecx, eax		; deistvitelnoe koli4estvo vvedenux simvolov, 
	lea ebx, str_in		; zapiwem adres v ebx
	mov eax,0			; obnulim na vs9kii sly4ai
	mov edx,0			;edx toje
	L1:
		mov al,byte ptr [ebx]+[edx]
		cmp al, 20h
		je L2 			;esli probel
		inc edx			; uveli4im smewenie na 1
		call WriteChar	;vuvodim simvol
		cmp ecx,0		; proverim ne dowli li do konca stroki
		je L3			;esli dowli go out
		dec ecx			;umenwim koli4estvo ostavwuxs9 cuklov
		jmp L1			; go na sled simvol
	L2:
		call crlf 		;perevod koretki
		inc edx			; probel toje simvol
		dec ecx
		cmp ecx,0		; proverim ne dowli li do konca stroki
		jnz L1
	L3:
	call WaitMsg		; daem vozmojnost s4itat' rezult
	call ExitProcess	; korektnui vuxod iz progi 
main ENDP
END main