Ввести с клавиатуры строку и вывести на экран по одному слову на строке

.386
    .model flat, stdcall
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc 
    include \masm32\include\masm32.inc
    include \masm32\include\kernel32.inc
    include \masm32\macros\macros.asm
    includelib \masm32\lib\user32.lib 
    includelib \masm32\lib\masm32.lib
    includelib \masm32\lib\kernel32.lib
Bsize equ 60
.data
buf db Bsize dup(?)
msg db "Enter a String(max 58 Simbols)",0dh,0ah
msg2 db "Result:",0dh,0ah
stdin dd ?
stdout dd ?
cRead dd ?
cWritten dd ?
LenSize dd ?
.code
start:
invoke GetStdHandle,STD_INPUT_HANDLE
mov stdin,eax
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov stdout,eax
invoke WriteConsoleA,stdout,ADDR msg,SIZEOF msg,ADDR cWritten,NULL
invoke ReadConsole,stdin,ADDR buf,Bsize,ADDR cRead,NULL
Call Lenght
@1:
cmp esi,LenSize
ja after
cmp buf[esi]," "
jz zero
inc esi
jmp @1
zero:
mov bh,"B"
mov buf[esi],bh
inc esi
mov edi,LenSize
mov eax,edi
inc eax
inc LenSize
@2:
cmp edi,esi
jb bellow
mov dh,buf[edi]
mov buf[eax],dh
dec edi
dec eax
jmp @2
bellow:
mov buf[esi],"K"
inc esi
jmp @1
 
jmp @1
 
after:
invoke WriteConsoleA,stdout,ADDR msg2,SIZEOF msg2,ADDR cWritten,NULL
invoke WriteConsoleA,stdout,ADDR buf,Bsize,ADDR cWritten,NULL
invoke Sleep,INFINITE
invoke ExitProcess,0
 
Lenght proc
cmp buf[esi],0
jnz nzero
sub edi,3
mov LenSize,edi
xor edi,edi
xor esi,esi
ret
nzero:
inc esi
inc edi
jmp Lenght
Lenght endp
end start

 
format PE console 4.0
 
include 'win32a.inc'
    invoke  printf, tmplt, entr
    invoke  gets, buf
    mov esi, buf
@@: invoke  strtok, esi, delims
    or  eax, eax
    jz  @F
    inc [cnt]
    xor esi,esi
    invoke  printf, wrd, [cnt], eax
    jmp @B
@@: invoke  getch
        invoke  exit,0
entr    db      'Enter string:',0
wrd db  ' word %d: %s',0Dh,0Ah,0
tmplt   db  '%s',0
delims  db  ' ',0
cnt dd  0
buf     db      256 dup(?)
; import data in the same section
 data import
 
 library msvcrt,'MSVCRT.DLL'
 
 import msvcrt,\
    gets,'gets',\
    printf,'printf',\
        strtok,'strtok',\ 
        exit,'exit',\ 
    getch, '_getch'
end data

.386
    .model flat, stdcall
    option casemap :none
    include \masm32\include\windows.inc
    include \masm32\include\user32.inc 
    include \masm32\include\masm32.inc
    include \masm32\include\kernel32.inc
    include \masm32\macros\macros.asm
    includelib \masm32\lib\user32.lib 
    includelib \masm32\lib\masm32.lib
    includelib \masm32\lib\kernel32.lib
Bsize equ 60
.data
buf db Bsize dup(?)
msg db "Enter a String(max 58 Simbols)",0dh,0ah
msg2 db "Result:",0dh,0ah
stdin dd ?
stdout dd ?
cRead dd ?
cWritten dd ?
LenSize dd ?
.code
start:
invoke GetStdHandle,STD_INPUT_HANDLE
mov stdin,eax
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov stdout,eax
invoke WriteConsoleA,stdout,ADDR msg,SIZEOF msg,ADDR cWritten,NULL
invoke ReadConsole,stdin,ADDR buf,Bsize,ADDR cRead,NULL
Call Lenght
@1:
cmp esi,LenSize
ja after
cmp buf[esi]," "
jz zero
inc esi
jmp @1
zero:
mov buf[esi],0dh
inc esi
jmp @1
 
 
after:
invoke WriteConsoleA,stdout,ADDR msg2,SIZEOF msg2,ADDR cWritten,NULL
invoke WriteConsoleA,stdout,ADDR buf,Bsize,ADDR cWritten,NULL
invoke Sleep,INFINITE
invoke ExitProcess,0
 
Lenght proc
cmp buf[esi],0
jnz nzero
sub edi,3
mov LenSize,edi
xor edi,edi
xor esi,esi
ret
nzero:
inc esi
inc edi
jmp Lenght
Lenght endp
end start