Заполнить двумерный массив NxN случайными числами из интервала [-5; 5] и найти максимальный элемент в каждой строке и поменять его первым элементом этой же строки

program zz1;

const n=5; / /задаем n

var a:array[1 ... n, 1 ... n] of integer;

i, j, k, m, max:integer;

begin

for i:=1 to n do

for j:=1 to n do

a[i, j]:=random (11) - 5; / /заполняем массив случайными числами от - 5 до 5

for i:=1 to n do

begin

for j:=1 to n do

write (a[i, j]:4); / /выводим исходный массив на экран

writeln;

end;

for i:=1 to n do

begin

max:=0; / /перед новой строкой максимальный обнуляем

for j:=1 to n do

if a[i, j]>max then begin max:=a[i, j]; k:=j; end; / /проверяем, если элемент массива больше чем максимальный, то записываем его в максимальный

m:=a[i, 1]; a[i, 1]:=a[i, k]; a[i, k]:=m; / /меняем местами первый элемент в строке с максимальным в этой строке

end;

writeln;

for i:=1 to n do

begin

for j:=1 to n do

write (a[i, j]:4); / /выводим полученный массив на экран

writeln;

end;

end.