begin
Randomize;
for i := 1 to n do
for j := 1 to n do
X[i,j] := Random(100);
for i := 1 to n do begin
IndMax := 1;
max :=X[i,1];
for j := 2 to n do begin
if X[i,j]>max then begin
max := X[i,j]; //Наибольший элемент строки с номером i
IndMax := j; //Столбец, в котором находится наибольший элемент строки
//с номером i
end;
end;
//Смена элементов
X[i,IndMax] := X[i,i];
X[i,i] := max;
end;
end;