Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке убывания - Turbo Pascal

Формулировка задачи:

помогите решить 2. Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке убывания.

Решение задачи: «Составьте блок-схему алгоритма и программу расположения четырех чисел в порядке убывания»

Листинг программы

var t,i,j:integer;
    a:array[1..4]of integer;
begin
     for i:=1 to 4 do
     begin
          write('Введите ',i,'-е число: ');
          readln(a[i]);
     end;
     for i:=2 to 4 do
         for j:=4 downto i do
             if a[j-1]<a[j] then
             begin
                  t:=a[j-1];
                  a[j-1]:=a[j];
                  a[j]:=t;
             end;
     writeln('Результат:');
     for i:=1 to 4 do
         write(a[i], ' ');
end.

Объяснение кода листинга программы

Создается переменная t типа Integer и инициализируется значением 0. Она будет использоваться для временного хранения значения элемента массива при обмене.
Создается переменная i типа Integer и инициализируется значением 1. Это начальное значение счетчика внешнего цикла.
Создается переменная j типа Integer и инициализируется значением 2. Это начальное значение счетчика внутреннего цикла.
Запускается внешний цикл от 1 до 4 (индексы массива от 0 до 3).
Внутри внешнего цикла запускается внутренний цикл от 4 до 2 (индексы массива от 1 до 3).
На каждой итерации внутреннего цикла происходит проверка условия if. Если текущий элемент массива меньше следующего, то выполняется следующий блок кода.
В блоке кода происходит обмен значениями элементов массива. Значение текущего элемента присваивается переменной t, значение следующего элемента присваивается текущему элементу, а значение переменной t присваивается следующему элементу.
После выполнения внутреннего цикла, значение переменной i увеличивается на 1.
После выполнения внешнего цикла, значение переменной i увеличивается на 1.
Выводится результат - четыре числа в порядке убывания.
Конец программы.