Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент.

[JiLiYa]

Доброго дня. Помогите,пожалуйста, что тут не так?
Задача. Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент.

Program Task5_04;
const
M=4;
N=4;
var
X:Array[1..M,1..N] of Real;
i,j,k:Word;
buf,max:Real;
begin
Randomize;
WriteLn('sozdanie elementov massiva:');
for i:=1 to M do
for j:=1 to N do
X[i,j]:=Random(10000)/100;
WriteLn('Nachalniy massiv:');
for i:=1 to M do
begin
for j:=1 to N do
Write(X[i,j]:8:2);
WriteLn;
end;
WriteLn;
max:=x[1,1];
for j:=1 to N do
for i:=1 to M do
if X[i,j]>max then
begin
buf:=X[i,j];
X[i,j]:=X[1,j];
X[1,j]:=buf;
end;
WriteLn('Itogoviy massiv:');
for i:=1 to M do
begin
for j:=1 to N do
Write(X[i,j]:8:2);
WriteLn;
end;
Readln;
end.

В чем тут ошибка? Он что-то ищет, перемещает,но не могу понять, что тут надо доделать чтоб было так как надо(((
Заранее спасибо за помощь))

[Zeraim]

А разьве не правильней будет вести поиск построчно а не по столбцам?
Сначала находим максимальный элемент в нашей первой строчке

for j := 2 to N do
begin
  max := x[1,1];
  if x[1,j] > max then max := x[1;j];
end;

Дальше ищем в оставшемся массиве, построчно, 1ый элемент больше нашего.

p := 0;
for i := 2 to M do
begin
  for j := 1 to N do
  begin
    if (x[i,j] > max)and(p = 0) then
    begin
      p := 1;
      nmrStroki := i;
    end;
  end;
end;

Дальше ставим строчку после той которую пометили в nmrStroki, обрати внимание что нам прейдется сдвинуть массив, иначе мы просто потеряем строчку если nmrStroki < M и получим ругательство от паски если nmrStroki = M.

for i := 1 to N do rplsArray[i] := x[1,i];
for i := 1 to nmrStroki do
begin
  for j := 1 to N do x[i,j] := x[i+1,j];
end;
for i := 1 to N do x[nmrStroki,i] := rplsArray[i];

В итоге всех этих махинаций, 1ая строчка переместится на место той где мы нашли максимальный элемент, а все строчки включая ту(в которой максимальный элемент) перместятся на 1 строчку вверх.

[JiLiYa]

Спасибо) Да,так гораздо лучше,прозрачнее)))Вроде бы нормально...только вот часто что-то меняются первая и вторая строка?Это нормально или я что-то недопонимаю просто?

[alex_fcsm]

Смотрите где максимальный элемент и думайте нормально это или нет

[JiLiYa]

Да, все правильно..))Спасибо))