ADEL array Delete Array Element

 DIMENSION FriendArray(5)

STORE 'Ram' TO FriendArray(1)

STORE 'Shyam' TO FriendArray(2)

STORE 'Sohan' TO FriendArray(3)

STORE 'Mohan' TO FriendArray(4)

STORE 'Rohan' TO FriendArray(5)

DISPLAY MEMORY 

srchText = 'Shyam'

indexno = ASCAN(FriendArray,srchText)

IF indexno != 0

MESSAGEBOX("Found")

retval = ADEL(FriendArray,indexno)

WAIT WINDOW retval

clear

DISPLAY MEMORY 

ELSE

MESSAGEBOX("not Found")

ENDIF