обработка массивов,язык паскаль

[artyom@@@@]

программа на паскале, нужно исправить мои ошибки.

Дан массив целых чисел А [1..n]. Отсортировать их методом выбора, расположив в порядке убывания и исключив из массива числа кратные 5. Вычислить среднее арифметическое оставшихся элементов. Вывести на экран отсортированный массив и вычисленное значение.

Program srednee_arihmetichescoe;
Uses crt;
var buf,i,m,j,n,s,k:integer;
ScArif: real;
a,g:array [1..100] of integer;
begin
clrscr;
write('razmer massiva n:');
readLn(n);
writeLn('chisla');
for i:=1 to n do
begin
write('a[',i,']=');
readLn(a[i]);
g[i]:=(a[i]);
end;
begin
k:=0;
for i:=1 to n do if (a[i]) mod 5=0 then
k:=k+1;
end;
writeLn('massiv kratnii 5:');
writeLn(k:3);
begin
for i:=1 to n do
begin
for j:=i+1 to n do
if g[] < g[] then
buf:=g[];
g[]:=g[j;
g[]:=buf;
end;
end;
writeLn(' uporydochevii massiv: ');
for i:=1 to n do
write(g[j]:3);
ScArif:=s/k;
writeLn;
writeLn('yporadochenii massiv:',ScArif);
readln;
end.


заранее спасибо!!!

[denisbrain]

Поиск включай!!!
http://www.programmersforum.ru/showthread.php?t=61022