Will anyone help me with my project?

[SnakeZ]

Well guys thanks, i got the delete record working now.

SUB delvid
DIM vid AS videotype
CLS
DO UNTIL response$ = "n"
INPUT "Please enter video's bar code number", number
vid.id = number

OPEN "vid.id" FOR RANDOM AS #1 LEN = LEN(vid)
GET #1, vid.id, vid
CLOSE #1

PRINT "This is the video's name", vid.vidname
PRINT "This is the video's main actor", vid.vidactor
PRINT "This is the video's rating", vid.vidratin
PRINT "This is the video's genre", vid.vidgenre
INPUT "Do you wish to delete the above data?", responset$
IF responset$ = "y" THEN
KILL "vid.id"
PRINT "You deleted the data"

ELSE
PRINT "You cancelled the delete"
END IF

INPUT "Do you wish to delete another record?", response$
LOOP
CLOSE #1

END SUB

EVERYTHING RUNS!!!

Okay i got 2 more subs left.
They are list and edit. Could you give me some advice.