Изменить код добавив подпрограммы-процедуры - Turbo Pascal

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

Здравствуйте, помогите изменить код добавив процедуры (procedure)

USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;
 
 write('N = '); readln(n);
 
  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  end;

  min := 1000;
  for i:=1 to 10 do begin
 
    if abs(a[i]-n) < min then begin
 
        min :=  abs(a[i]-n);
        ind := i;
 
    end;
  end;
 
  writeln;
  writeLN(ind);
  readln;
END.

Решение задачи: «Изменить код добавив подпрограммы-процедуры»

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

const
m=10;
type
amas=array[1..m] of real;
procedure massiv (var a:amas);
var i: integer;
begin
 randomize;
 for i:=1 to m do
  begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  end;
 writeln;
 end;
 
procedure index(a:amas;n:real);
var i,ind:integer;
begin
ind:=1;
for i:=1 to m do
if abs(a[i]-n) <abs(a[ind]-n) then ind := i;
writeLN('Индекс=',ind);
end;
var a:amas;
    n:real;
begin
massiv(a);
write('N = '); readln(n);
index(a,n);
end.

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

В коде присутствуют две подпрограммы-процедуры: massiv и index.
Подпрограмма massiv принимает на вход ссылку на массив a типа amas и инициализирует его случайными числами с помощью функции random.
Затем выводит значения элементов массива с помощью цикла for и функции write.
После вызова подпрограммы massiv пользователю предлагается ввести значение переменной n с помощью функции readln.
Подпрограмма index принимает на вход ссылку на массив a типа amas и значение переменной n типа real.
С помощью цикла for и условного оператора if находится элемент массива a с минимальным абсолютным отклонением от значения переменной n.
Значение переменной ind присваивается найденному индексу элемента массива.
Затем выводится значение переменной ind с помощью функции writeLN.
Значение переменной n используется как аргумент при вызове подпрограммы index.
Значение переменной ind не выводится в основной программе.