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

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!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    endend;begin  var a:=ArrRandom(10,-10,10); a.Println;  BubbleSortFlag(a);  a.Printlnend.Пример-7 5 5 1 -3 -5 -8 1 2 3-8 -7 -5 -3 1 1 2 3 5 5