Переделать программу, чтобы она спрашивала, сколько гласных нужно удалить

.MODEL Large, Pascal
 
.DATA
EXTRN  source:Byte, destination:Byte, w_del_ids:Word    ; исходнаястрока и строка-результат
   EXTRNShowResult: Far             ; процедура вывода строки
lendw 0
w_adrsdw 255 dup(?)             ; массив, содержащий начало слов в исходной строке
w_lensdw 255 dup(?)             ; массив, содержащий длины слов(если 0 - заменить на ...)
w_countdw 0                         ; количество слов
w_del_countdw 5                     ; количество слов, подлежащих удалению
symbolsdb 'aeiouyAEIOUY'            ; массив гласных букв
ErrorStrdb'Rangeerror'              ; сообщение об ошибке диапазона
.CODE
 
 
 
 
 
; ПРОЦЕДУРА ПРОВЕРКИ ВХОДИМОСТИ ВСЕХ ИНДЕКСОВ В ДИАПАЗОН СЛОВ. В AX - РЕЗУЛЬТАТ ПРОВЕРКИ.
CheckDelIdsproc
    movAX, 1                    ; по умолчанию - ошибок нет
    movCX, w_del_count          ; в счётчик цикла - количество удаляемых слов
    xorBX, BX                   ; обнуление BX для индексации в массиве номеров
    xorDI, DI                   ; обнуление DI для индексации в массиве длинн
    
    
@check_id:
    movDI, w_del_ids[BX]        ; в DI - номер слова для удаления
    cmpDI, w_count
    jg @error                   ; если какой-то из индексов превышает количество слов, то переход на метку ошибки
 
    addBX,2                 ; увеличение индекса удаляемых слов(на 2, т.к. массивы word)
    loop @check_id
    jmp @ex
    
@error:
    movAX, 0                    ; ошибка есть
    leaSI, ErrorStr         ; настройка SI на сообщение ошибки
    leaDI, destination          ; настройка DI на результирующую строку
    incDI                       ; DI++, т.к. первый байт - длина строки
    movlen, 11                  ; итоговая длина теперь равна длине сообщения ошибки
    movCX, 11                   ; счётчик повторений для цикла rep - длина сообщения ошибки
    repmovsb                    ; перепись байтов из SI в DI
 
@ex:
    ret
CheckDelIdsendp
 
 
; ПРОЦЕДУРА ЗАПИСИ СИМВОЛА ПРОБЕЛА В РЕЗУЛЬТИРУЮЩУЮ СТРОКУ. В DI - РЕЗУЛЬТИРУЮЩАЯ СТРОКА.
WriteWhitespaceproc
    pushAX                      
    movAL, ' '                  ; символ пробела в AL
    stosb                       ; запись пробела в результирующую строку
    inclen                      ; увеличение длины результирующей строки на 1
    popAX                       
    ret
WriteWhitespaceendp
 
 
 
; ПРОЦЕДУРА УДАЛЕНИЯ ГЛАСНЫХ ИЗ СЛОВА. В DI - ИНДЕКС СЛОВА В МАССИВЕ СЛОВ И ДЛИН.
DeleteVowelsproc
 
; записать адрес слова
; записать длину слова
; проходим циклом по символам слова и если гласная - удаляем и уменьшаем длину строки(len)
; если не гласная, то записываем символ  
 
    push CX
    push BX
    push DX
    pushDI
    pushSI
    
    cld                     ; флаг направления обработки строковых команд
    movCX, w_lens[DI]           ; в CX - количество символов слова(для счётчика цикла)
    movDX, 0                    ; в DX - количество символов слова(для изменения длины)
    movSI, w_adrs[DI]           ; в SI - адрес слова 
    movDI, SI                   ; в DI - также адрес слова
    
    ; ВНЕШНИЙ ЦИКЛ - по всем символам слова
    @symb:
    lodsb                       ; загрузка символа из слова
    
    ; проверка символа - ВЛОЖЕННЫЙ ЦИКЛ по всем символам symbols
    pushCX
    
    movCX, 12                   ; счётчик цикла - количество гласных
    xorBX, BX                   ; индекс в массиве гласных
    @check:
    ; если символ равен символу из массива, то его не нужно копировать и выход из вложенного цикла
    movAH, symbols[BX]          ; в DL - очередной символ из массива гласных
    cmpAH, AL                   ; сравнение гласного(ah) с проверяемым символом(al)
    je @end_checking            ; если символ - гласная, то не записывать
    incBX                       ; иначе - увеличиваем индекс в массиве
    loop @check                 
    ;ВЛОЖЕННЫЙ ЦИКЛ ЗАВЕРШЁН
    stosb                       ; сохранение символа в слове
    incDL
    @end_checking:              ; проверка закончена полностью, запись произведена
    
    pop CX  
    loop @symb
 
    pop SI
    pop DI
    
    mov byte ptrw_lens[DI], DL  ; сохраняемновуюдлинуслова
    
    pop DX
    pop BX
    pop CX
    
    ret
    
DeleteVowelsendp
    
 
;  ОСНОВНАЯ ПРОЦЕДУРА. ВЫЗЫВАЕТСЯ ИЗ ПАСКАЛЯ. В DI - индекс в массиве слов.
PublicDeleteWords
DeleteWordsprocfar
 
    xorBX, BX                   ; обнулить число найденных слов
    cld                     ; флаг направления обработки строковых команд
    leaSI, source               ; в SI - адрес исходной строки
    lodsb                       ; загрузка длины в AX
    movlen, AX                  ; сохранение длины в len
    movCX, AX                   ; сохранение длины в CX
    
    xorAH, AH                   ; обнуление AH
    movAL, ' '                  ; символ для поиска - пробел           
    mov DI, SI                  ; в DI SI
    
; разделение слов и занесение в массив
@search_space: repnescasb   ; поиск пробела 
    movDX, DI
    subDX, SI                   ; определение длины найденного слова
    decDL                       ; поправка длины с учётом пробела
    jcxz @last_w                ; если счётчик кончился, то достигнуто последнее слово
    jmp @s
    @last_w: inc DL 
    @s:
    movwordptrw_adrs[BX], SI    ; сохраняем адрес слова в массиве
    movbyteptrw_lens[BX], DL    ; сохраняем длину слова в массиве
    movSI, DI                   ; начало следующего слова - символ после пробела
    addBX,2                 ; увеличение индекса найденных слов(на 2, т.к. массивы word)
    jcxz @process_words         ; выход из цикла, если достигли конца строки
    jmp @search_space           ; поиск других пробелов
 
    
; удаление необходимых слов - обнуление длинн
@process_words:
    shrBX, 1                    ; индекс/2
    movw_count, BX              ; в w_count количество слов
    xorAX, AX                   ; обнуление AX, туда будет записан результат работы CheckDelIds
    callCheckDelIds         ; вызов функции проверки входимости максимального слова
    cmpAX, 1                    ; если ответ функции 1, то все индексы допустимы
    jne @exit
    
    movCX, w_del_count          ; в счётчик цикла - количество удаляемых слов
    xorBX, BX                   ; обнуление BX для индексации в массиве номеров
    xorDI, DI                   ; обнуление DI для индексации в массиве длинн    
@delete_word:
    movDI, w_del_ids[BX]        ; в DI - номер слова для удаления
    decDI                       ; DI--, т.к. индексация массива с нуля
    shlDI,1                     ; DI*2, т.к. массивы word  
    callDeleteVowels            ; удаление гласных из слова
    addBX,2                 ; увеличение индекса удаляемых слов(на 2, т.к. массивы word)
    loop @delete_word
    
 
    
; запись результирующей строки с учётом
    movCX, w_count              ; в CX - общее количество слов
    leaDI, destination          ; DI - начало строки результат
    incDI                       ; DI++, т.к. 1й байт - длина строки
    xorBX, BX                   ; обнуление BX для индексации в массивах
    movlen, 0
@write_word:    
    push CX
    mov SI, w_adrs[BX]          ; в SI - адресслова
    movCX, w_lens[BX]           ; в CX - длина слова(счётик цикла rep)
    addlen, CX
    repmovsb                    ; безусловный цикл переписи байтов из SI в DI
    callWriteWhitespace     ; запись пробела после слова
    @m:
    popCX
    addBX,2                 ; увеличение индекса(на 2, т.к. массивы word)
loop @write_word    
    
    @exit:
    mov AX,  len
    movbyteptrdestination[0], AL    ; запись длины в первый байт(для Паскаля)
    
    call  ShowResult
    
ret
 
DeleteWordsendp
 
End