Turbo Pascal, одномерные массивы

[cdc]

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

у меня не получается: минимальный элемент не возводится в квадрат и упорядочение элементов по возрастанию, остальное работает нормально, что не так??? Вот программа:

program xxx;
uses crt;
var a:array [1..10] of integer;
    b:array [1..10] of integer;
    i, f, s, n, x, j, k, t, min: integer;
begin
clrscr;
randomize;
writeln('введите*размер массива ');
readln(n); 
x:=0;
s:=0;
f:=0;
for i:= 1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i],' ');
  if a[i]<0 then s:=s+1;
 end;
  min:=abs(a[1]);
  for i:=1 to n do
  begin
  if a[i]<min then
  begin
  min:=a[i];
  f:=i;
  end;
  end;
  for i:= f+1 to n do
  begin
  if a[i]<0 then
  begin
  a[i]:=abs(a[i]);
  x:=x+a[i];
  a[i]:=Sqr(a[i]);
  end;
  if a[i]>0 then x:=x+a[i]
  end;
  writeln;
  for i:=1 to f+1 do
  begin
  if a[i]<0 then a[i]:=Sqr(a[i]);
  end;
  for i:=1 to n do
  begin
 [I]If a[i]>a[i+1] then
 begin
 j:=a[i];
 a[i]:=a[i+1];
a[i+1]:=j;
 end;
write(a, ' ');
end;
writeln('');
writeln('сумма модулей элемента х=', x);
writeln('количество отрицательных элементов s= ', s);
readln;
end.

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