Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив

Program sort;
var
A: array[1..100] of integer;
n,i,j,k,l: integer;
begin
randomize;
n:=15;
for i:=1 to n do A[i]:=random(100); Наполняем массив случайными числами
for i:=1 to n do write(A[i], ); Массив рекомендуется выводить на экран для последующего сопоставления и контроля ошибок
writeln;
k:=A[1];
l:=0;
for i:=1 to n-1 do Сортировка способом пузырька
for j:=1 to n-i do
if A[j]lt;A[j+1] then begin
k:=A[j];
A[j]:=A[j+1];
A[j+1]:=k
end;
for i:=1 to n do if A[i]gt;10 then l:=l+1; Подсчет элементов, великих 10
for i:=1 to n do write(A[i], ); Вывод на экран отсортированного массива
writeln;
writeln(Число частей, великих 10: ,l)
end.

Один из способов сортировки - Способ пузырька. Сравниваются попарно элементы массива - 1 со 2, 2 с 3 и т.д. Задача - расположить элементы в порядке убывания, означает, если последующий элемент оказывается больше предыдущего, то мы меняем местами эти элементы, таким образом отодвигая великие числа на лево, меньшие - на право. И наименьший элемент окажется последним справа. При последующем проходе уже не сравниваем заключительный и предпоследним, и наименьший из оставшихся окажется на предпоследнем месте.