Pascal. Обработка массива.

[Karly_21-11]

Срочно нужна помощь!) Может ктонибудь написать код программы как можно скорее? Буду очень благодарна!!!
Постановка задачи: Дан массив целых чисел А[1..n]. Отсортировать их методом выбора в порядке убывания и исключив из массива числа, кратные 5. Вычислить среднее арифмитическое оставшихся элементов. Вывести на экран отсортированный массив и вычесленное значение.
Может кто-то такое уже делал?)

[Mad_Cat]

исключение кратных 5

i:=1;
while i<=n do
begin
if a[i] mod 5 =0 then begin
for j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
end
else i:=i+1;
end;

среднее арифметическое

avg:=0;
for i:=1 to n do
avg:=avg+a[i];
avg:=avg/n;

метод выбора

const N=10; {Количество элементов массива}
  var a: array[1..N] of integer; {массив}
  i,j: integer; {счётчики для цикла}
  c:   integer; {Переменная для промежуточного хранения}
  c2:  integer; {Переменная для промежуточного хранения}
  .......
for i:=1 to N-1 do begin 
  {цикл по первому обрабатываемому элементу массива}
  c2:=i; {индекс предполагаемого минимального элемента}
  for j:=i+1 to N do 
    {поиск минимального элемента}
    if a[c2]>a[j] then c2:=j; {если в c2 индекс не минимального элемента, 
    			то в c2 записывается индекс меньшего элемента}
    c:=a[i];a[i]:=a[c2];a[c2]:=c; {Меняем местами элемент массива}
end;

[Karly_21-11]

Спасибо огромное за помощь!!!!)))