Паскаль, задача на массивы

[RegnaM]

"Написать программу, содержающую процедуру, которая удаляет указанный элемент из числового массива. При этом все элементы, лежащие ниже удаляемого, поднимаються вверх. Последний элемент массива обнуляеться. С помощью указанной процедуры удалить все вхождения наибольшего и наименьшего элементов."
Вот такой вот чернейший ужас, у меня нет даже малейшего представления, как это делать, вся надежда на вас

[GetMax]

Вот процедура, удаляющая элемент и смещающая лежащие под ним элементы на одну позицию вверх. Остальное сами попробуйте сделать.

Procedure Udalenie(Str,Stl,K_ud,L_ud:Byte);
Var
  i:Byte;
Begin
  For i:=K_ud+1 to Str do
  Begin
    M[i-1,L_ud]:=M[i,L_ud]
  End;
  M[Str,L_ud]:=0
End;