Упорядочить элементы, расположенные до первого отрицательного элемента в порядке возрастания элементов - Pascal ABC

CONST n=30;
VAR a:array [1..n] of integer;
i,f:integer;
BEGIN
For i:=1 to n do a[i]:=Random (100)-50; //чтобы отрицательные  значения встретились
For i:=1 to n-1 do //ищем первый отриц элемент
  IF a[i]<0 THEN begin
                 f:=i;
                 Break;
                 end;
For i:=1 to f-1 do  //сортируем "пузырьком"
IF a[i]>a[i+1] THEN begin
                    a[i]:=f;
                    a[i]:=a[i+1];
                    a[i+1]:=f;
                    end;
END.