функции и процедуры Опции

[tori]

Нужно написать подпрограмму для удаления указанного элемента из одномерного массива.

Буду очень благодарна, если предложите свое решение,мое чего-то глючит

[volvo]

Леха, все дело в том, что оптимально - это в три строки:

if i < n then { <--- I - номер удаляемого элемента }
  move(arr[i+1], arr[i], (n - i)*sizeof(integer));
arr[n] := 0; dec(n);

(безо всяких доп. массивов)