нужно доделать задачу

[гоша37]

Задание 1: Задать массив А[1..16] с помощью генератора случайных чисел положительными и отрицательными числами. Определить минимальный элемент, заменить этот элемент элемент числом 1000.
Задание 2: Затем отсортировать получившийся массив методом “пузырька” и методом “улучшенного пузырька”. Для обоих методов вывести количество сравнений.

var A1,A2,B,C:array[1..16] of integer;
i,min,j,k,l,s1,s2,imin:integer;
f:boolean;
begin
writeln;
for i:=1 to 16 do
begin
A1[i]:=random(100)-10;
write(A1[i]:5);
end;
min:=A1[1];
for i:=1 to 16 do
begin
if A1[i]<min then
begin
min:=A1[i];
imin:=i;
end;
end;
A1[imin]:=1000;
A2:=A1;
writeln;
for i:=1 to 16 do
write( A2[i]:5);
writeln;
B:=A2;
for i:=1 to 15 do
for j:=1 to 16-i do
begin
s1:=s1+1;
if B[j]>B[j+1] then
begin
k:=B[j];
B[j]:=B[j+1];
b[j+1]:=k;
end;
end;
writeln;
write('Отсортированный массив В:');
for i:=1 to 16 do
write(B[i]:5);
writeln;
write('Количество сравнений S1=');
write(s1);
writeln;
C:=A2;
 f:=true;
while f=true do
 begin  
 f:=false;
 s2:=s2+1;
 for i:=1 to 15 do
 if C[i]>C[i+1] then
   begin 
    l:=C[i];
    C[i]:=C[i+1];f:=true;
    C[i+1]:=l
   end;
end;
 write ('Отсортированный массив C:');
for i := 1 to 16 do    
write (C[i]:5);
writeln;
    write ('Количество сравнений s2=');
    write (s2);
   end.

теперь в тексте этой задачи нужно:
1) выделить в процедуры
-ввод массива
-вывод
-сортировку
2) создать функцию определяющую сределяющую среднюю раифметическую элементов исходного массива




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