Функция high

Program Lab_101;
 uses crt;
 type
  TXT=TEXT;
  MAS=array[1..100] of integer;
 VAR
  F:TXT;
  A,B,C:mas;
  i,n,m,g,buf:integer;
  ind:boolean;
  
 Procedure vvod_mas(var a:mas; var n:integer);
 BEGIN
  For i:=1 to n do
  a[i]:=random(10);
 END;
 
 Procedure Vivod_mas(var a:mas; var n:integer);
 BEGIN
 APPEND(F);
  For i:=1 to n do
   begin
    Write(F,a[i], ' ');
   end;
 writeln(F,' ');
 END;
 
 Procedure form_mas(var c:mas; var n:integer);
 BEGIN
  For i:=1 to n do
  c[i]:=A[i]+B[i];
 END;
 
 Procedure Yporiad(var c:mas; var n:integer);
 BEGIN
  REPEAT
   ind:=true;
   For i:=1 to (n-1) do
    If c[i]>c[i+1] then
     BEGIN
      buf:=c[i];
      c[i]:=c[i+1];
      c[i+1]:=buf;
      ind:=false;
     END;
  UNTIL ind;
END;
 
 BEGIN
  ASSIGN(F, '1.TXT');
  rewrite(f);
  Writeln(F,'Введите количество элементов массива A[i]');
  Writeln(f,'Массив A[i]');
  readln(n);
  vvod_mas(a,n);
  Vivod_mas(a,n);
  Writeln(F,'Введите количество элементов массива B[i]');
  Writeln(f,'Массив B[i]');
  readln(m);
  vvod_mas(b,m);
  Vivod_mas(b,m);
   IF n>m then g:=m else g:=n;
  Form_mas(c,g);
  Writeln(f,'Сформированный массив состоит из ', g, ' элемнетов');
  Vivod_mas(c,g);
  Yporiad(c,g);
  Writeln(f,'Отсортированный массив');
  Vivod_mas(c,g);
  close(f);
 END.