Рассортировать числа в массиве до максимального значения по возрастанию- Pascal(Паскаль)

uses crt;
const
  na= 10;
  nb= 15;
type
  mas= array[1..nb+na] of integer;
var
  a,b: mas;
  i,j,Nmaxa,Nmaxb,Nmaxx: integer;
 
procedure MASIV(k:integer; var d:mas; var Nmaxx:integer);
  procedure SOZD (k:integer; var d:mas);
  begin
    for i:=1 to k do
      d[i]:=-99+random(199);
  end;
 
  procedure VIVOD (k:integer; d:mas);
  begin
    writeln ('Вывод массива:');
    for i:=1 to k do write (d[i]:4);
    writeln;
  end;
 
  function Nmaxim (k:integer; d:mas):integer;
  var
    nom: integer;
  begin
    nom:=1;
    for i:=2 to k do
      if d[i]>d[nom] then nom:=i;
    Nmaxim:=nom
  end;
 
begin
  SOZD(k,d);
  VIVOD(k,d);
  Nmaxx:=Nmaxim(k,d);
  writeln(Nmaxx);
end;
 
 
BEGIN
  randomize;
  MASIV(na,a,Nmaxa);
  writeln(Nmaxa);
  MASIV(nb,b,Nmaxb);
END.