Пример программы на Pascal для сортировки массива из 10 элементов методом сортировки пузырьком:

program BubbleSort;
var
arr: array[1..10] of integer;
i, j, temp: integer;
begin
// Ввод массива из 10 элементов
writeln('Введите 10 элементов массива:');
for i := 1 to 10 do
readln(arr[i]);
// Сортировка массива методом пузырька
for i := 1 to 9 do
for j := 1 to 10 - i do
if arr[j] > arr[j + 1] then
begin
temp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := temp;
end;
// Вывод отсортированного массива
writeln('Отсортированный массив:');
for i := 1 to 10 do
write(arr[i], ' ');
readln;
end.

Этот код сначала запрашивает у пользователя ввод 10 элементов массива, затем сортирует его методом пузырька и выводит отсортированный массив на экран.