процедуры и функции и сортировка массива в Паскале!

[Jumper_9091]

Не могу разобратся в чем проблема. Написал программу в паскале а она не работает, чего то не хватает, а чего не могу понять!Большая просьба помочь с решением, ато никак модуль по Алгоритмизации не могу закрыть
Вот условия: Преобразовать вектор A(n), выстроив его элементы в порядке возрастания абсолютных величин его компонентов и определить средне-арифметическое S значений элементов вектора А.Дано n=10, A=(-1.5, 0, 0.1, 2.1, 1.8, -0.25, 3, 1.7, 5.1, 4,5)
А вот что я пытался сделать по этому условию
program Lr2;
const n=10;
type mass = array[1..n] of real;
Var OC:mass;
A:array[1..n] of real;
Procedure St(Tec:mass);
Var
S,t:integer;
i,n,p:real;
b: string;
Begin
Writeln('Ввод данных');
Read(A[i]);
b:=true;
p:=8;
While b=true do begin
b:=false;
for x:=0 to p do begin
if abs(A[i])>abs(A[i+1]) then begin
t:=A[i];
A[1]:=A[i+1];xz
(A[i+1]):=t;
b:=true;
p:=p-1;
S:=0;
for x:=0 to 9 do begin
S:=S+A[i];
S:=S/n;
for x:=o to 9 do begin
writeln(A[i]);
writeln(S)
end;
end.
И прошу помочь еще с 2 задачами!
1)По функциям:
Дана точка M(x0,y0) и массив точек Ai(Xi,Yi), где Xi=M*cosi, Yi=k*sini, i=1,n(и сверху 1,n черточка).Найти ту из точек Ai, которая наименьше удалена от точки М.Дано n=20; m=4,5; k=-1,5; x0=-0,11; y0=0,34
2)Дан список строк-имен файлов.Определить, какие из имен соответствуют введенному шаблону файлов.Шаблон строится(как в Виндовс) при помощи фрагментов имен файла и специальных символов " * ", которая обозначает любую строку, и "?" который обозначает любой символ
Думаю вы решите эту проблему. Зарание спасибо!

[prof_gaming]

ВО первых счетчик надо! )))
writeln('Vvedite n');
readln(n);
for i:= 1 to n do begin
Writeln('Ввод данных');
Read(A[i]);
end;