Добавить процедуру вывода - Turbo Pascal

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

Помогите, пожалуйста, я никак не могу сделать процедуру вывода то выдает ошибку тип rray к типу array, то еще что-то.

USES CRT;
type
amas=array[1..30] of real;
procedure massiv (var a:amas);
var
 i, z, m: integer;
begin
repeat
    m := 30;
    writeln('Введите кол-во элемнетов последовательности до 30');
    readln(z);
    if (z > m) then writeln('Ввденое число должно быть меньше 30! ')
  until (z < m);
  m := z;
 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 m,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
CLRSCR;
write('Данная программа из последовательности находит порядковый номер числа, которое ближе всего к заданному числу');
writeln;
massiv(a);
write('Введите число N = '); readln(n);
index(a,n);
readln;
end.

Вот что у меня вышло. Как считаете верно ?

USES CRT;
type
amas=array[1..30] of real;
procedure r_input (var a:amas);
var
 i, z, m: integer;
begin
repeat
    m := 30;
    writeln('Введите кол-во элемнетов последовательности до 30');
    readln(z);
    if (z > m) then writeln('Ввденое число должно быть меньше 30! ')
  until (z < m);
  m := z;
 randomize;
 for i:=1 to m do
  begin
    a[i]:=random(103)/7;
 
  end;
 writeln;
 end; 
 
procedure index(a:amas;n:real);
var m,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;
 
procedure conclusion(a:amas;n:real);
var
i, m: integer;
begin
for i:=1 to m do
    write(a[i]:6:2);
    write('Данная программа из последовательности находит порядковый номер числа, которое ближе всего к заданному числу');
    end;
 
var a:amas;
    n:real;
begin
CLRSCR;
conclusion(a,n);
writeln;
r_input(a);
write('Введите число N = '); readln(n);
index(a,n);
readln;
end.

Ну вот снова не отображается, как меня это бесит

Все теперь отображается только индекс неверный ищет

USES CRT;
type
amas=array[1..30] of real;
procedure r_input (var a:amas);
var
 i, z, m: integer;
begin
repeat
    m := 30;
    writeln('Введите кол-во элемнетов последовательности до 30');
    readln(z);
    if (z > m) then writeln('Ввденое число должно быть меньше 30! ')
  until (z < m);
  m := z;
 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 m,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;
 
procedure conclusion(a:amas);
 
begin
    write('Данная программа из последовательности находит порядковый номер числа, которое ближе всего к заданному числу');
    writeln;
  r_input(a);
    writeln;
    end;
 
var a:amas;
    n:real;
begin
CLRSCR;
conclusion(a);
write('Введите число N = '); readln(n);
index(a,n);
readln;
end.

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

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

uses crt;
type
amas=array[1..30] of real;
const m=30;
procedure r_input (var a:amas;var n:integer);
var i:integer;
begin
repeat
write('Введите кол-во элементов последовательности от 2 до 30');
readln(n);
if not(n in [2..30]) then writeln('Ввденное число должно быть от 2 до 30! ')
until n in [2..30];
randomize;
for i:=1 to n do
a[i]:=random(103)/7;
end;
procedure index(a:amas;n:integer;x:real);
var i,ind:integer;
begin
ind:=1;
for i:=1 to n do
if abs(a[i]-x) <abs(a[ind]-x) then ind := i;
writeln('Индекс=',ind);
end;
 
procedure conclusion(a:amas;n:integer);
var i:integer;
begin
writeln('Данная программа из последовательности находит порядковый номер числа,');
writeln('которое ближе всего к заданному числу');
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:2);
writeln;
end;
 
var a:amas;
    n:integer;
    x:real;
begin
clrscr;
r_input(a,n);
conclusion(a,n);
write('Введите число x=');
readln(x);
index(a,n,x);
readln;
end.

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

Объявление переменных и констант:
- amas - массив, представляющий собой последовательность чисел
- m - константа, определяющая размер массива (30)
- i - целочисленная переменная, используемая в качестве счетчика в цикле
- n - целочисленная переменная, представляющая собой количество элементов последовательности
- x - вещественная переменная, представляющая собой искомое число
Процедура r_input:
- Запрос на ввод количества элементов последовательности
- Проверка корректности введенного значения (должно быть от 2 до 30)
- Инициализация генератора случайных чисел
- Заполнение массива a случайными числами
Процедура index:
- Поиск индекса ближайшего к заданному числу x элемента в массиве a
- Вывод найденного индекса на экран
Процедура conclusion:
- Вывод информации о задаче
- Вывод исходного массива a на экран
Основной блок кода:
- Инициализация переменных a, n и x
- Очистка экрана
- Вызов процедуры r_input для ввода количества элементов последовательности
- Вызов процедуры conclusion для вывода исходного массива a
- Ввод искомого числа x
- Вызов процедуры index для поиска ближайшего к x элемента в массиве a
- Чтение символа для завершения работы программы