Сортировка массива.

[Genzal]

Как это сделать, я не понимаю. Вот в массиве нашли в максимальные элементы каждой строки. Как сделать чтобы максимальные элементы встали в середину каждой своей строки. Ещё вопрос если я хочу добавить пределы для значение L чтобы не только было четное но и не больше 20(через repeat).
Вот так звучит задание: В каждой строке А(K,L), K <= 15, L <= 20 наибольший элемент расположить в середине строки.

Const K=15;
      L=20;
var
  A: array[1..K, 1..L] of integer;
  i, j, N, M: byte;
  MaxElem: integer;
begin
repeat
 write('Кол-во строк K = ');
 readln(M);
 until M in [2..L];
repeat
 write('Кол-во столбцов L = ');
 readln(N);
until Odd(N);
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    MaxElem := a[i, 1];
    for j := 2 to N do 
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.

[digitalis]

У меня дежа-вю ?
http://programmersforum.ru/showthread.php?t=316836