pascal. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали в этой же строке

constmaxn = 100;typemyarr = array [1..maxn, 1..maxn] of longint;vara: myarr;n, i, j, max, ini, c: longint;beginreadln(n, m);for i := 1 to n do beginmax := -maxInt;for j := 1 to m do beginread(a[i, j]);if (a[i, j] > max) then beginmax := a[i, j];ini := j;end;end;c := a[i, i];a[i, i] := max;a[i, ini] := c;end;for := 1 to n do beginfor j := 1 to m dowrite(a[i, j], ' ');writeln;end;end.