Разработать алгоритм методом пошаговой детализации - Pascal

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

Разработать алгоритм методом пошаговой детализации и программу решения задачи, в которой отсортировать одномерный массив a[1..8], состоящий из элементов вещественного типа в порядке возрастания методом «вставки». Исходные данные массива вводятся с клавиатуры.

Решение задачи: «Разработать алгоритм методом пошаговой детализации»

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

Program Sortirovka;
uses crt;
const
n=8;
var
m,k,j:byte;
a:real;
x:array[1..n] of real;
begin
clrscr;
{Заполнение массива числами}
writeln('Введите ',n,' элеметов массива:');
for k:=1 to n do
 begin
  write('x[',k,']=');
  readln(x[k]);
 end;
clrscr;
writeln('Исходный массив: ');
for k:=1 to n do
write(x[k]:6:2);
writeln;
{Сортировка массива вставками}
for k:=1 to n do
  begin
   a:=x[k];
   x[m]:=a;
   j:=k;
{Поиск места вставки и сдвиг элемента вправо}
   while a<x[j-1] do
     begin
      x[j]:=x[j-1];
      dec(j);
     end;
   x[j]:=a;
  end;
{Вывод отсортированного массива*}
writeln('Массив,отсортированный по возрастанию:');
for k:=1 to n do
write(x[k]:6:2);
readln
end.

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

Заполнение массива числами:
- Вводим n (количество элементов массива)
- Для каждого k от 1 до n, считываем число и записываем его в x[k]
- Выводим исходный массив
Сортировка массива вставками:
- Для каждого k от 1 до n, сохраняем текущий элемент x[k] в переменной a
- Записываем a в x[m]
- Устанавливаем j равным k
- Пока a меньше x[j-1], выполняем следующие действия:
  - Сдвигаем элементы вправо, записывая их в x[j-1]
  - Уменьшаем j на 1
- Записываем a в x[j]
Вывод отсортированного массива:
- Выводим отсортированный массив