Массивы, процедуры (Pascal)

[Bourn15]

uses crt;
var a: array [1..50] of integer;
i,j,n: integer;
t,sum,kolich: integer;
srArf: real;


begin clrscr;
write('n = '); readln(n);
write('Vvodite chislo: ');
for i:=1 to n do read(a[i]);

for i:=1 to n-1 do
for j:=i+1 to n do
if a[j] < a[i] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
begin
sum:=0 ;
kolich:=0;
for i:=1 to n do
if a[i]<0 then
begin
sum:=sum+a[i] ;
kolich:=kolich+1;
end;
if kolich>0 then
srArf:=sum/kolich
else writeln('chisel, ydov uslov, net');
writeln('srednee arif= ',srArf:4:2);
write('Otsortorovannyi po vozrastaniu massiv: ');
for i:=1 to n do write(a[i]:4);
writeln;
end;
readkey;

По програме сделать задания:
-Сортировка в виде процедуры с параметром;
-Вычесление средне ариф в виде функции;
-записать в текстовый файл отрицательные числа.


Зарание спасибо