процедуры,функции,текстовый файл

[gfcrfkm]

Прошу помощи!

Нужно переписать след. программу с использованием сортировки в виде процедуры, вычислить ср. арифметическое в виде функции,в текстовый файл записать отрицательные числа. в паскаль

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

Program Massiv;
Uses Crt;
Var
a:array[1..100] of real;
i,j,n:integer;
x,sr:real;
BEGIN
ClrScr;
WriteLn('vvedite razmer massiva');
ReadLn(n);
WriteLn('vvedite elementy massiva');
for i:=1 to n do
ReadLn(a[i]);

WriteLn(' massiv do sortirovki');
for i:=1 to n do
Write(a[i]:5:2, ' ');
WriteLn;


for i:=1 to n do
if a[i]<0 then a[i]:=sqr(a[i]);


for i:=1 to n-1 do
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
end;
WriteLn;
WriteLn(' massiv posle sortirovki');
for i:=1 to n do
Write(a[i]:5:2, ' ');
WriteLn;

Sr:=(a[1]+a[n])/2;

WriteLn;
WriteLn(' sr arif:' , sr:5:2);
ReadKey;
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Mad_Cat]

1) зачем кросспостить
2) оформлять пост надо нормально
3) за ник 3 с минусом