1.Написать программу сортировки целочисленного массива из 10 элементов методом пузырька с флажком ( заполнение массива случайными числами в интервале [-10..10])

procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
  var f:=True; // флажок перестановки
  var p:=1; // номер перестановки
  var n:=a.Length;
  while f do begin
    f:=false;
    for var i:=0 To n-p-1 Do
      if a[i]>a[i+1] then begin
        Swap(a[i],a[i+1]);
        f:=true
        end;
      p+=1
    end
end;

begin
  var a:=ArrRandom(10,-10,10); a.Println;
  BubbleSortFlag(a);
  a.Println
end.


-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5