Ввести числовой массив из 10 элементов(массив одномерный)
Отсортировать числа в массиве в порядке возрастания
Вывести на экран отсортированный массив.
использовать окна)
помогите пожалуйста)

var a:array[1..10] of longint;n,i,b:integer;f:boolean;Beginreadln(n);for i:=1 to n do read(a[i]);writeln;repeatf:=true;for i:=2 to n doif a[i-1]>a[i] then Beginb:=a[i-1];a[i-1]:=a[i];a[i]:=b;f:=false;end;until f;for i:=1 to n do write(a[i]:5);end.