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

uses crt;
type Tmas=array[1..100] of integer;//тип массива
procedure Vvod(var n:byte;var m:Tmas;c:char);{ввод(n-размер, m-массив, с-символ массива-А,В)}
var i:byte;
begin
writeln('Ishodnyj massiv ',c,':');
write('Razmernost massiva n=');
readln(n);
for i:=1 to n do
  begin
    m[i]:=random(50);{можно, даже лучше сделать ввод с клавиатуры, чтоб макс не был случайно первым, или последним}
    write(m[i],' ');
  end;
writeln;
end;
procedure Vyvod(n:byte;var m:Tmas);{вывод на экран}
var i:byte;
begin
for i:=1 to n do
write(m[i],' ');
writeln;
end;
function Nmax(n:byte;m:Tmas):byte;{функция выдает номер максимального элемента}
var i,j:byte;
    max:integer;
begin
max:=m[1]; j:=1;
for i:=1 to n do
if m[i]> max then
  begin
    max:=m[i];
    j:=i;
  end;
Nmax:=j;
end;
Procedure Sort(x,y:byte;var m:Tmas);{процедура сортировки,х-начало интервала, у-конец интервала}
var i,j:byte;
    f:integer;
begin
for i:=x to y-1 do
for j:=i+1 to y do
if m[i]>m[j] then {обменная сортировка пузырьком}
  begin
    f:=m[i];
    m[i]:=m[j];
    m[j]:=f;
  end;
end;
var a,b:Tmas; {раздел переменных программы}
    na,nb,imax:byte;
begin {начало программы}
clrscr;
randomize;
Vvod(na,a,'A');
Writeln('Sortirovka massiva A do max:');
Sort(1,Nmax(na,a)-1,a);{сортируем от 1 до пред-макс}
Vyvod(na,a);
Writeln('Sortirovka massiva A posle max:');
Sort(Nmax(na,a)+1,na,a);{от посл-макс до конца}
Vyvod(na,a);
Writeln('Sortirovka vsego massiva A:');
Sort(1,na,a);{сортируем весь массив}
Vyvod(na,a);
readln;{задержка}
repeat
Vvod(nb,b,'B');
until nb<>na; {следим, чтобы размер массивов был разным(условие)}
Writeln('Sortirovka massiva B do max:');{все тоже с массивом В}
Sort(1,Nmax(nb,b)-1,b);
Vyvod(nb,b);
Writeln('Sortirovka massiva B posle max:');
Sort(Nmax(nb,b)+1,nb,b);
Vyvod(nb,b);
Writeln('Sortirovka vsego massiva B:');
Sort(1,nb,b);
Vyvod(nb,b);
readln
end.