Ассемблер - Работа с файлами (помочь доделать))

[Opiym]

Здравствуйте! Прошу помощи доделать программу.

Задание:

Доработать программу, на данный момент она выполняет:
Дан массив из 5-ти структур. Составить программу, согласно заданной структуре и поставленной задаче. Поля структуры: номер по порядку, ФИО, год рождения, пол. Необходимо выдать ФИО девочек в возрасте до 18 лет.

Необходимо доработать:
Массив структур сохранить в текстовый файл, затем осуществить поиск (необходимо выдать ФИО девочек в возрасте до 18 лет) по текстовому файлу с последующим выводом на экран результата поиска.

Код программы:

prg segment para public 'code'
assume cs:prg,ss:prg,es:prg,ds:prg
org 100h
start: jmp go
worker struc
n db 30 dup(' ')
sex db ' '
a db ?
worker ends
mas worker <'Petrova Olga $','g',27>,<'Ivanov Ivan $','m',18>,<'Svetlova Svetlana $','g',19>,<'Petrova Elena $','g',21>,<'Zaharova Mariya $','g',17>
go:
lea di,mas
mov cx,5
mov bl,'g'
mov al,18
m:
cmp [di].sex,bl
jne ml
p:
cmp[di].a,al
jle ml
v:
lea dx,[di].n
push ax
mov ah,09h
int 21h
pop ax
ml:
add di,type worker
loop m
ret
prg ends
  end start

[Opiym]

Совсем никто не знает ???