Все элементы массива, равные нулю, поставить сразу после максимального элемента - Turbo Pascal - Ответ 2482612

uses crt;
const nmax=50;
var a:array[1..nmax] of integer;
    n,i,imx,j,k:integer;
begin
clrscr;
repeat
write('Введите размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числаЮ в том числе 0:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
imx:=1;
for i:=1 to n do
 begin
  write(a[i],' ');
  if a[i]>a[imx] then imx:=i;
 end;
writeln;
writeln('Максимальный элемент=',a[imx],' его индекс=',imx);
writeln;
for i:=1 to n do
if(i<>imx)and(a[i]=0) then{если ноль и не максимальный}
 begin
  if i<imx then{раньше максимального}
   begin
    for j:=i to imx-1 do{сдвигаем на него все элементы до макс}
    a[j]:=a[j+1];
    a[imx]:=0;{на место максимального пишем 0}
   end
  else{если после максимального}
   begin
    for j:=i downto imx+2 do{сдвигаем на него все после максимального}
    a[j]:=a[j-1];
    a[imx+1]:=0;{на место максимального пишем 0}
   end;
 end;
writeln('Перестановка нолей:');
for i:=1 to n do
write(a[i],' ');
readln
end.