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

[Alexbmgn]

//Одномерный массив А длиной N<=20 заполнить случайными числами из ..диапазона [–15..80].
//Переместить максимальные элементы в конец, сдвинув остальные элементы влево.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,max:integer;
begin
 randomize;
 clrscr;
 for i:=1 to n do
  begin
   a[i]:=random(95)-15;
   write(a[i]:4);
max:=a[1];  
end;
 

for i:=1 to n do
  if a[i]>max then
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    a[n]:=max;
   end;
 writeln;
 for i:=1 to n do
 write(a[i]:4);
end.

Вот код, я его попытался адаптировать под свою задачу, он переставляет в конец максимальный элемент, но почему-то не хочет сдвигать влево остальные элементы. Помогите подкорректировать код. Если что-то возможно вывести в функции..

[Stilet]

max:=a[1];

Максимальный элемент всегда первый?

Допустим у тебя переменка imax указывает на номер максималки, которую нужно сдвинуть.

 l=a[imax];
 for k:=imax+1 to n do a[k-1]:=a[k];
 a[n]:=l;

Идея понятна?

[Alexbmgn]

Насчет нахождения максимального элемента, честно говоря толком алгоритм нахождения максимального-то и не помню. Ну вот берет за эталон значение первого элемента и с ним сравнивая ищет макс у меня получается.

Эмм... про вторую поправку по-подробнее бы ))


p.s (ужс какой эти задачки по программированию) это конечно понимаю еще примтив, но все равно голова пухнет кому это всё надо, как это может кому-то доставлять удовольствие ума не приложу)