Нахождение максимального и минимального числа из файла

program Massive;
 
const
  mn = 19;
 
type
  myar = array [1..mn] of integer;
 
var
  a: myar;
  n,i,max,nmax,kmax: integer;
      
procedure form_file(var x:myar);
          var i:integer;
              f:text;
       begin
         Assign (f, 'massiv.txt');
         Reset(f);
            for i:=1 to mn do
         read (f,x[i]);
         close(f);
       end;
 
procedure Print(x: myar; n:integer);
var
  i: integer;
begin
  for i := 1 to n do
    write(x[i], ' ');
end;
 
Procedure maximum(a:myar);                 
var
  i,max,nmax,kmax: integer;
  begin
  max:=a[1];
  nmax:=1;
  kmax:=1;
for i:=2 to mn do
 if a[i]>max
 then 
 begin
 max:=a[i];
 nmax:=i;
 kmax:=1;
 end
 else if a[i]=max then kmax:=kmax+1;
 writeln ('max  ',max,' ','nmax   ',nmax,' ','kmax    ',kmax);
 end;
 Procedure minimum(a:myar);
var 
    i,min,nmin,kmin:integer;
    begin
    min:=a[1];
    nmin:=1;
    kmin:=1;
    for i:=2 to mn do
 if a[i]<min
 then
 begin
   min:=a[i];
   nmin:=1;
   kmin:=1;
   end
   else if a[i]=min then kmin:=kmin+1; 
   writeln ('min  ',min,' ','nmin   ',nmin,' ','kmin    ',kmin);
end;
 
begin
  form_file (a);
  Print(a,n); 
  maximum (a);
  minimum (a);
  
 
end.