Модули - найти ошибки в коде - Pascal ABC

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

Здравствуйте! Помогите найти ошибку. Заранее, спасибо!

Unit modul;
Interface
const n=5;
type mass=array[1..n] of real;
var a:mass;
Procedure vvod(i:integer; var a:mass);
Procedure print(i:integer; var a:mass);
Procedure vsaimoobr(i:integer; var a:mass);
Implementation
Procedure vvod;
begin
  for i:=1 to n do
  begin
  write('a[',i,']=');
  readln(a[i]);
  end;{vvod}
end;
Procedure print;
begin
  for i:=1 to n do write(a[i]:7:2);
  writeln;
end;{print}
Procedure vsaimoobr;
  var vz_obr:boolean;
  begin
    vz_obr:=false;
    for i:=1 to (n-1) do
    if a[i]*a[i+1]=1 then
    begin
     writeln('vsaimoobr = ',a[i]:10:2,a[i+1]:10:2);
     vz_obr:=true;
    end;
    
    if vz_obr=false then write('takih net');
     end; {vsaimoobr}
          end.

Решение задачи: «Модули - найти ошибки в коде»

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

Procedure vvod(var a:mass);
Procedure print(a:mass);
Procedure vsaimoobr(var a:mass);
Implementation
Procedure vvod(var a:mass);
var i:integer;
begin
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;{vvod}
end;
Procedure print(a:mass);
var i:integer;
begin
for i:=1 to n do
write(a[i]:7:2);
writeln;
end;{print}
Procedure vsaimoobr(var a:mass);
var vz_obr:boolean;
    i:integer;
begin
vz_obr:=false;
for i:=1 to n-1 do
if a[i]*a[i+1]=1 then
 begin
  writeln('vsaimoobr = ',a[i]:10:2,a[i+1]:10:2);
  vz_obr:=true;
 end;
if vz_obr=false then write('takih net');
end; {vsaimoobr}
end.

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

В процедуре vvod переменной a присваивается значение массива.
В процедуре print значение каждого элемента массива a выводится на экран через функцию write.
В процедуре vsaimoobr проверяется условие a[i]*a[i+1] = 1. Если это условие выполняется, то выводится сообщение vsaimoobr = и значения a[i] и a[i+1]. Также устанавливается значение переменной vz_obr в true. Если условие не выполняется, то выводится сообщение takih net.