Матрица.Перенос макс. элемента в последнюю позицию строки

[Mr.BL@CK]

В каждой строке прямоугольной матрицы перенести максимальный элемент в последнюю позицию строки, сдвинув при этом влево расположенные после него элементы. Учесть частный случай, когда максимальный элемент уже находится в последней позиции строки.
Пример.
Строка 5 18 21 12 10 24 13 17 8 10 после преобразования будет иметь вид 5 18 21 12 10 13 17 8 10 24


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

Кто подскажет?

[Mad_Cat]

i:=1;
for k:= 2 to n do
if a[k]>a[i] then i:=k;
max:=a[i];
if i<>n then begin
for k:=i to n-1 do
a[k]:=a[k+1];
a[n]:=max;
end;

[Mr.BL@CK]

^_^ cпасибо