Добавить в код использование процедур - PascalABC.NET

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

                    Листинг программы
                
 
                        
                          
                    
const 
n = 10;
var 
i,j, max, t: integer;
A: array[1..n] of integer;
begin
for i:=1 to n do
read(A[i]);
 
for i:=1 to n do 
begin
max:= i;
for j:=i to n do 
if A[j] < A[max] then
max := j;
t := A[i];
A[i] := A[max];
A[max] := t;
end;
 
writeln('Вывод массива:'); 
for i:=1 to n do
write(A[i], ' ');
 
end.

Решение задачи: «Добавить в код использование процедур»

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

const n = 10;
type mas=array[1..n] of integer;
procedure vvod(var a:mas);
var i:byte;
begin
for i:=1 to n do
read(A[i]);
writeln;
end;
procedure sort(var a:mas);
var i,j,max:byte;
    t:integer;
begin
for i:=1 to n do
 begin
  max:= i;
  for j:=i to n do
  if a[j]<a[max] then max := j;
  t :=a[i];
  a[i]:=a[max];
  a[max] := t;
 end;
end;
procedure vyvod(a:mas);
var i:byte;
begin
writeln('Вывод массива:');
for i:=1 to n do
write(a[i],' ');
end;
var a:mas;
begin
vvod(a);
sort(a);
vyvod(a);
end.

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

Объявлены константа n равная 10 и тип массива mas как массив целых чисел размером 10.
Объявлены процедуры vvod и sort.
В процедуре vvod используется цикл for для прохода по всем элементам массива a. В каждой итерации цикла происходит чтение значения из стандартного ввода и сохранение его в соответствующем элементе массива a.
В процедуре sort используются две вложенные цикла for. Внешний цикл выполняется для каждого элемента массива a. Во время каждой итерации внешнего цикла, внутренний цикл сравнивает каждый элемент массива a с текущим максимальным элементом и обновляет значение максимального элемента, если текущий элемент меньше.
Значение текущего элемента сохраняется в переменной t, а затем заменяется значением элемента с индексом максимального элемента. Значение элемента с максимальным индексом заменяется значением t.
В процедуре vvod используется цикл for для прохода по всем элементам массива a. В каждой итерации цикла происходит вывод значения элемента массива a с пробелом в качестве разделителя.
В основной части программы вызываются процедуры vvod, sort и vvod для ввода, сортировки и вывода массива a соответственно.
Значения массива a вводятся с клавиатуры, сортируются и выводятся на экран.