Подпрограммы: разделить каждый из элементов массива на его максимальный отрицательный элемент

uses CRT;
 
const
  nmax = 10;
 
var
  i, n1, n2, n3      : integer;
  X1  : array[1..nmax] of integer;
  X2  : array[1..nmax] of integer;
  X3  : array[1..nmax] of integer;  
  
procedure Vvod1m(var a : array of integer; N: integer);
var  q : integer;
begin
  for q := 1 to N do
  begin
    Write('Введите ',q,'-й элемент массива : ');
    ReadLn(a[q]);
  end;
end;
 
procedure Vivod1m(a : array of integer; N: integer);
var  q : integer;
begin
  for q := 1 to N do
    Write(a[q]:3,' ');
  WriteLn;
end;
 
function MaxOtr(a : array of integer; N: integer) : integer;
var  q, max : integer;
begin
  Max := 0;
  for q := 1 to N do
    if a[q]<max then
      max := a[q];
 
  MaxOtr := max;
end;
 
procedure Delenie(var a : array of integer; N: integer; Chislo : integer);
var  q : integer;
begin
  if chislo = 0 then
  begin
    WriteLn('ОШИБКА : нельзя делить на ноль!');
    Exit;
  end;
 
  for q := 1 to N do
    a[q] := a[q] div chislo;
end;
 
begin
  ClrScr;
  
  {вводим массивы}
  Write('Введите количество элементов массива X1 (MAX=',nmax,') : '); ReadLn(n1); if n1>nmax then n1:=nmax;
  Vvod1m(x1,n1);
 
  Write('Введите количество элементов массива X2 (MAX=',nmax,') : '); ReadLn(n2); if n2>nmax then n2:=nmax;
  Vvod1m(x2,n2);
 
  Write('Введите количество элементов массива X3 (MAX=',nmax,') : '); ReadLn(n3); if n3>nmax then n3:=nmax;
  Vvod1m(x3,n3);
 
  ClrScr;
 
  WriteLn('МАССИВЫ ДО ПРЕОБРАЗОВАНИЯ');
  Vivod1m(x1,n1);
  Vivod1m(x2,n2);
  Vivod1m(x3,n3);
 
  Delenie(x1,n1, MaxOtr(x1,n1));
  Delenie(x2,n2, MaxOtr(x2,n2));
  Delenie(x3,n3, MaxOtr(x3,n3));
 
  WriteLn('МАССИВЫ ПОСЛЕ ПРЕОБРАЗОВАНИЯ');
  Vivod1m(x1,n1);
  Vivod1m(x2,n2);
  Vivod1m(x3,n3);
 
  WriteLn;
  WriteLn('Для продолжения нажмите любую клавишу...');
  ReadKey;
end.

uses crt;
const nmax=100;
type Tmas=array[1..nmax]of real;
procedure Vvod1m(var a:Tmas;var n:byte;name:string);
var i:byte;
begin
write('Razmernost massiva ',name,': ');
readln(n);
for i:=1 to n do
a[i]:=20*random-9;
end;
procedure Vivod1m(var a:Tmas;n:byte;name:string);
var i:byte;
begin
writeln('Massiv ',name,':');
for i:=1 to n do
write(a[i]:6:2);
writeln;
end;
function MaxOtr(a:Tmas;n:byte):real;
var i,k:byte;
    max:real;
begin
max:=-100;k:=0;
for i:=1 to n do
if (a[i]<0)and(a[i]>max) then
   begin
     max:=a[i];
     k:=1;
   end;
if k=0 then max:=0;
MaxOtr:=max;
end;
procedure Delenie(var a:Tmas;n:byte;chislo:real);
var i:byte;
begin
for i:=1 to n do
a[i]:=a[i]/chislo;
end;
var x1,x2,x3:Tmas;
    n1,n2,n3:byte;
begin
clrscr;
randomize;
Vvod1m(x1,n1,'X1');
Vivod1m(x1,n1,'X1');
writeln('Max otr el=',MaxOtr(x1,n1):0:2);
if MaxOtr(x1,n1)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x1,n1,MaxOtr(x1,n1));
    Vivod1m(x1,n1,'X1');
  end;
Vvod1m(x2,n2,'X2');
Vivod1m(x2,n2,'X2');
writeln('Max otr el=',MaxOtr(x2,n2):0:2);
if MaxOtr(x2,n2)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x2,n2,MaxOtr(x2,n2));
    Vivod1m(x2,n1,'X2');
  end;
Vvod1m(x3,n3,'X3');
Vivod1m(x3,n3,'X3');
writeln('Max otr el=',MaxOtr(x3,n3):0:2);
if MaxOtr(x3,n3)=0 then writeln('Preobrazovanie nevozmozno!')
else
  begin
    Delenie(x3,n3,MaxOtr(x3,n3));
    Vivod1m(x3,n3,'X3');
  end;
readln
end.

function MaxOtr(a:Tmas;n:byte):real;
var i,k:byte;
    max:real;
begin
max:=-100;k:=0;
for i:=1 to n do
if (a[i]<0)and(a[i]>max) then
   begin
     max:=a[i];
     k:=1;
   end;
if k=0 then max:=0;
MaxOtr:=max;
end;

function MaxOtr(a:Tmas; n:byte):real;
var i   : byte;
    max : real;
begin
  max    := 2.9e-39; {применяем самое минимальное из возможных REAL}
  MaxOtr := 0;       {это если ни одного минимального мы не обнаружим}
 
  for i:=1 to n do
    if (a[i]<0) and (a[i]>max) then
    begin
      max    := a[i]; {запоминаем макс из мин}
      MaxOtr := max;  {когда функция завершится ее результатом будет}
                      { самое последнее значение}
    end;  
end;