Выручайте! В массиве A=(a1,a2,a3.an) все элементы, равные нулю, нужно поставить сразу после максимального элемента данного массива

program lab5_var2;
Uses crt;
type arr=array[1..10] of integer;
var a:arr; {Массив}
  i_max: byte; {индекс максималтного элемента массива}
  max,I,j,n: integer; {максимальный элемент}
begin
  writeln;
  writeln(' Переместить все элементы, равные 0, после максимального элемента');
  writeln;
  {$R+} {Включение контроля значений индексов}
  clrscr; {Очистка экрана}
  n:=10;    
    for I:=1 to n do 
        begin
            write('Введите a[',I,']');
            read(a[I]);
            clrscr;
        end;
  writeln;
  max:=a[i];
  i_max:=1;
  for i:=2 to n do {Поиск максимального элемента массива}
    if a[i]>max then
    begin
      max:=a[i];
      i_max:=i;
    end;
  i:=i_max+1;
   writeln('max= ',max);
i:=i_max+1;
  while i<=n do {цикл для поверки элементов на знак}
  begin 
    if a[i]=0 then {если элемент равен 0 , то}
    begin
for I:=1 to n-1 do
      for j:=I+1 to n do
      if a[j]<a[I] then { a[I]  и a[j] меняются местами }
        begin
          i_max:=a[I];
          a[I]:=a[j];
          a[j]:=i_max;
   end;
    end
    else
      i:=i+1;  {иначе переход к следущему элементу}
  end; 
  writeln;
  writeln('Результат обработки:');
  for i:=1 to n do 
    write(a[i]:4);
      writeln;;
  readln;
    writeln;
{$R-} {Выключение контроля значения индексов}
end.

program Sort_Vybor1; 
 var A:array[1..100] of integer; 
 i_max: byte;
 max,N,i,m,k,x : integer; 
 
begin 
 write('количество элементов массива '); 
 read(N); 
 for i:=1 to n do read(A[i]); 
 for k:=n downto 2 do {k- количество элементов для поиска max } 
   begin 
    m:=1; { m - место max } 
    max:=a[i];
  i_max:=1;
  for i:=2 to n do {Поиск максимального элемента массива}
    if a[i]>max then
    begin2
      max:=a[i];
      i_max:=i;
    end;
  i:=i_max+1;
    for i:=2 to k do   
    if a[i]=0  then m:=i;
    {меняем местами элементы с номером m и номером k} 
    x:=A[m]; A[m]:=A[k]; A[k]:=x; 
   end; 
   writeln('Полученный массив');
        writeln('max= ',max);
 for i:=1 to n do write(A[i],' '); {упорядоченный массив} 
end.

var {описываем переменные}
Mass : array [1..50] of integer;
null_count : integer;
i : byte;
{ниже представлен код, подсчитывающий количество нулевых элементов}
Begin
For i:= 1 to 50 do begin
if Mass[i]=0 then null_count:=null_count+1;
end;
{В переменной null_count хранится количество нулевых элементов}
End;