максимальное среди отрицательных эл-ов массива

function MaxOtr(A:T1m; N:byte):real;
var i:integer; max:real; k:byte;
 begin
 k:=0;
 for i:=1 to n do
 begin
 if A[i]<0
 then begin
 max:=A[i];
 k:=1;
 end; end;
 
 if k<>0 then
 MaxOtr:=max
 else MaxOtr:=0;
 end;

const MaxRazm = 10;
type
     T1m=array[1..MaxRazm] of real;
     TName=string[5];
var X1,X2,X3:T1m;
N1,N2,N3:byte;
// vvod odnomernogo massiva
procedure Vvodim(var A:T1m; var N:byte; const Name:TName);
var i:byte;
begin
  writeLn('ââîäèòå ìàññèâ ', Name,':');
  write('ðàçìåðíîñòü ìàññèâà N=');
  readLn(N);
  for i:=1 to N do
      begin
        write(Name,'[',i,']=');
        readLn(A[i]);
      end;
end;
// vivod odnomeernogo massiva
procedure Vivodim(const A:T1m; const N:byte; const Name:TName);
var i:byte;
begin
  writeLn('âûâîäèì ìàññèâ ', Name,':');
  for i:=1 to N do
        write(A[i]:2:2,',');
      writeLn;
end;
function MaxOtr(A:T1m; N:byte):real;
var i:integer; max:real; k:byte;
 begin
 k:=0;
 for i:=1 to n do
 begin
 if A[i]<0
 then begin
 max:=A[i];
 k:=1;
 end; end;
 
 if k<>0 then
 MaxOtr:=max
 else MaxOtr:=0;
 end;
procedure Delenie(var A:T1m; const N:byte; const Chislo:real);
var i:byte;
begin
for i:=1 to n do
A[i]:=A[i]/chislo ;
end;
begin
Vvodim(x1,n1,'x1');
Vvodim(x2,n2,'x2');
Vvodim(x3,n3,'x3');
Vivodim(x1,n1,'x1');
Vivodim(x2,n2,'x2');
Vivodim(x3,n3,'x3');
if maxotr(x1,n1)=0 then writeln('net otricatelnyh elementov v massive x1')
else
delenie(x1,n1,maxotr(x1,n1));
if maxotr(x2,n2)=0 then writeln('net otricatelnyh elementov v massive x2')
else
delenie(x2,n2,maxotr(x2,n2));
if maxotr(x3,n3)=0 then writeln('net otricatelnyh elementov v massive x3')
else
delenie(x3,n3,maxotr(x3,n3));
Vivodim(x1,n1,'x1');
Vivodim(x2,n2,'x2');
Vivodim(x3,n3,'x3');
end.

function MaxOtr(A:T1m; N:byte):real;
var b:t1m; i,k:integer; max:real;
 begin
 k:=1; max:=0;
 for i:=1 to n do
 begin
 if A[i]<0 then begin
 b[k]:=a[i];
 k:=k+1;
 end; end;
 if k<>1 then begin max:=b[1];
 for i:=2 to k-1 do
 if b[i]>max then max:=b[i]; end else MaxOtr:=0;
 MaxOtr:=max;
 end;