Ну например так:

авторst_mdi_sheet lst_sheet[]

long i, j
boolean lb_find
lb_find = false
for i = LowerBound(ist_sheet) to UpperBound(ist_sheet)
if lb_find then
lst_sheet[i - 1] = ist_sheet
else // åùå íå íàéäåí
if ist_sheet.l_key = al_arr_ndx then
lb_find = true
else
lst_sheet = ist_sheet
end if
end if
next
return 1

j = UpperBound(ist_sheet)
if j > 0 then
j = LowerBound(ist_sheet)
else
j = al_arr_ndx - 1
end if

for i = j to al_arr_ndx - 1
lst_sheet = ist_sheet
next

j = UpperBound(ist_sheet)
for i = al_arr_ndx + 1 to j
lst_sheet = ist_sheet
next

ist_sheet = lst_sheet

return 1

Где al_arr_ndx - индекс в массиве, который удалить надо
st_mdi_sheet - некая структура


Но если в структуре простые типы, и массив может быть большим, я бы советовал DS использовать. Мне кажется, что с ним работать удобнее. Да и комментарии можно писать и работает с любыми структурами.