упорядочить по возрастанию массив целых чисел a1...an используя алгоритм сортировки выбором

Целевой массив в задаче имеет тип integer. В такой массив можно будет заносить только целые числа.Так как в Паскале нельзя создавать динамические массивы, то определять величину массива программным способом мы не можем. Придется задать значение n:а : array [1..10] of integer;Заполняем его случайными целыми числами, пользуясь функцией random():for i:integer := 1 to 10 doа[i] := random(100);Чтобы расположить элементы по порядку, нужно создать переменную, в которой будет временно содержатся заменяемое значение:for i:integer := 2 to 10 doif (а[i] < а[i - 1]) thenbegint := а[i - 1];а[i - 1] := а[i];а[i] := t;end;После того, как все элементы будут расположены по порядку, выведем массив, применив форматирование для каждого элемента, чтобы они не были расположены рядом:for i:integer := 2 to 10 dowrite(a[i]:5).