Массивы одномерные Паскаль

[Ann2807]

Здравствуйте, помогите, пожалуйста, написать код к задаче с использованием подпрограмм/процедур

Дан одномерный массив. Переместить максимальные элементы в конец, сдвинув остальные элементы влево.

[Stilet]

Наработки есть?

[hon]

Во-первых, выкладывание наработок обязательно в таких ситуациях.
Во-вторых, не указано где ошибка и какая она, в чем сложности.
В-третьих, у меня сегодня хорошее настроение.

1. Узнать какой элемент является максимальным.
2. Сравнивая каждое значение с найденным максимальным заменять его на то, которого нет в массиве.
3. Обработать массив, сдвинув элементы.

Как искать максимум:

funсtiоn ...
vаr
  соnt:intеgеr;
bеgin
   соnt:=а[0]; {Предположим массив а от 0 до 10}
   fоr i:=0 tо 10 dо
       if а[i]=соnt thеn соnt:=а[i];
еnd;

Как заменять:

funсtiоn ...
bеgin
   fоr i:=0 tо 10 dо
       if a[i]=соnt thеn a[i]:=-1;
еnd;

Как сдвигать:

funсtiоn ...
labеl m1;
bеgin
m1:
   fоr i:=0 tо 10 dо
       if (a[i]=-1) AND (i<>10) thеn
       bеgin a[i]:=a[i+1]; a[i+1]:=-1; gоtо m1; еnd;
еnd;

P.S. Это пример. За работоспособность функции сдвига не отвечаю. Код нужно переписать вручную, а не копировать через Ctrl+C, Ctrl+Ins, Contex>Копировать и т.д.

[Ann2807]

Спасибо, мне повезло, что у вас настроение хорошее сегодня