Удалить максимальный элемент из одномерного массива размерностью 10, заполненного с клавиатуры. вставить после минимального элемента ноль.

program adikalok; uses crt; const n=10; var  a: array [1..10] of integer;   i,min,max: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   randomize;   writeln('элементы массива: ');   {создание и вывод массива}  for i: =1 to n do      begin          a[i]: =random(100)-50;           write (a[i]: 5);       end; {ищем номера мин и мах}  min: =1;   max: =1;   for i: =1 to n do      begin          if a[min]> a[i] then min: =i;           if a[max]< a[i] then max: =i;       end;   if min< max then //min находится левее чем max      begin          for i: =max downto min+2 do          a[i]: =a[i-1];           a[min+1]: =0;               end            else //min находится правее чем max      begin          for i: =max to min do          a[i]: =a[i+1];           a[min]: =0;               end;   writeln();   writeln('результат: ');   for i: =1 to n do      write(a[i]: 5); end.