查找电话号码

要求：

（1）要求程序建立一个可存放50项的电话号码表，每项包括人名（20个字符）及电话号码（8个字符）两个部分；

（2）程序可接收输入人名及相应的电话号码，并把它们加入电话号码表中；

（3）凡有新的输入后，程序应按人名对电话号码表重新排序；

（4）程序可接收需要查找电话号码的人名，并从电话号码表中查出其电话号码，再在屏幕上以如下格式显示出来

name tel.

********* *********

提示：程序采用子程序结构，主程序的主要部分如下：

显示 提示符‘input name: ’

调用子程序input_name接收人名

调用子程序stor_name把人名存入电话号码表tel_tab中；

显示提示符‘input a telephone number: ’

调用子程序inphone接收电话号码，并把它存入电话号码表tel_tab中

如输入已结束则调用name_sort子程序对电话号码表按人名排序；

显示提示符：do you want a telephone number?(Y/N);

回答N则退出程序；

回答Y则在显示提示符name?

调用子程序input_name接收人名

调用子程序name_search在电话号码表中查找所要的电话号码；

调用子程序printline按要求格式显示人名及电话号码

重复查号提示符直至用户不再要求查号为止；
我的程序如下（没有编排序的子程序），但有点问题往高手赐教
;*****************************************************
tel_tab struc
username db 20,0,20 dup(?) ;结构体，32B\
tel db 8, 0,8 dup(?)
tel_tab ends
;*****************************************************
data segment
message1 db 'Input name:','$'
message2 db 'Input a telephone number:','$'
message3 db 'Do you want a telephone number?(Y/N)?','$'
message4 db 'name?','$'
message5 db 'name', 7 dup(' '),'tel.','$'
space db 7 dup(' '),'$'
table tel_tab 50 dup(<>)
mid db 0
mid2 dw 0
name1 db 20,0,20 dup(?)

data ends
;*****************************************************
code segment
main proc far
assume cs:code,ds:data
start: mov ax,data
mov ds,ax

lea dx,message1 ;display message1
mov ah,09h
int 21h


call input_name
call newline
call stor_name

lea dx,message2 ;display message2
mov ah,09h
int 21h

call newline
call inphone

repeat: lea dx,message3 ;display message3
mov ah,09h
int 21h

mov ah,01h
cmp al,'N'
je exit

call newline

lea dx,message4 ;display message4
mov ah,09h
int 21h

call newline
call input_name
call name_search
call printline

jmp repeat

exit: mov ax,4c00h
int 21h
main endp
;***************************************************
printline proc near
lea dx,message5
mov ah,09h
int 21h

call newline
mov bx,ax
add bx,offset table
mov mid2,bx
mov dx,offset [mid2].username[0]
mov ah,09h
int 21h

mov dl,0dh
mov ah,02h
int 21h

mov bx,ax
add bx,offset table
mov mid2,bx
mov dx,offset [mid2].tel[0]
mov ah,09h
int 21h

ret


printline endp
;***************************************************
name_search proc near
mov cl,mid
mov ch,0
mov al,mid
cbw

loop2: mov bl,32
mul bl
continue: mov dx,offset table
add dx,ax
mov mid2,dx
mov bl,[mid2].username[1]
cmp bl,name1[1]
je find
inc ax
loop loop2
jmp exit1

find: dec cx
push cx
mov cl,name1[1]
mov ch,0
mov bx,02h
mov di,bx
loop3: mov dx,ax
add dx,offset table
mov mid2,dx
mov bl,[mid2].username[di]
cmp bl,name1[di]
jne pop1
inc di
loop loop3
jmp exit1
pop1: inc ax
jmp continue
exit1: pop cx

ret
name_search endp
;***************************************************
inphone proc near
mov al,mid
mov ah,0h
mov bl,32d
mul bl
mov dx,ax
add dx,offset table
mov mid2,dx
lea dx,[mid2].tel[0]
mov ah,0ah
int 21h

inc mid
ret

inphone endp
;***************************************************
newline proc near
mov dl,0dh
mov ah,02h
int 21h
mov dl,0ah
mov ah,02h
int 21h
ret
newline endp
;***************************************************
input_name proc near

lea dx,name1
mov ah,0ah
int 21h
ret
input_name endp
;***************************************************
stor_name proc near
mov al,mid
mov ah,0
mov bl,32d
mul bl

mov cx,0022d
mov si,0
loop1: mov bl,name1[si]
mov dx,ax
add dx,offset table
mov mid2,dx
mov [mid2].username[si],bl
inc si
loop loop1

ret
stor_name endp
;****************************************************


code ends
end main