В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных (Pascal ABC)

Предыдущий
вопрос Следующий
вопрос

program SwapMaxAndFirstElement;
var
arr: array[1..3, 1..3] of Integer;
i, j, maxIndex: Integer;
maxElement: Integer;
begin
// Заполняем массив произвольными значениями
arr[1, 1] := 5;
arr[1, 2] := 2;
arr[1, 3] := 3;
arr[2, 1] := 8;
arr[2, 2] := 4;
arr[2, 3] := 1;
arr[3, 1] := 9;
arr[3, 2] := 6;
arr[3, 3] := 7;

for i := 1 to 3 do
begin
maxElement := arr[i, 1];
maxIndex := 1;

// Находим максимальный элемент в строке
for j := 2 to 3 do
begin
if arr[i, j] > maxElement then
begin
maxElement := arr[i, j];
maxIndex := j;
end;
end;
// Меняем местами первый элемент и максимальный элемент
arr[i, maxIndex] := arr[i, 1];
arr[i, 1] := maxElement;

end;

// Выводим измененный массив
for i := 1 to 3 do
begin
for j := 1 to 3 do
begin
Write(arr[i, j], ' ');
end;
Writeln;
end;
end.