Я набросал в паскале программу,

Question

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

Дима Архипов · Accepted Answer

>должна переставить элементы равные 0 после максимального элемента 
>Удалить все отрицательные элементы, расположенные справа от максимального 
>мне кажется я что-то напутал 
 
Не кажется, а очевидно. Ты перепутал задание.

Igor Zinevich · Answer

проверь индексы у А, a [ i ] и что значит переставить элементы равные 0 после максимального?