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

Uses crt; const n=5; var a: array[1… n,1… n] of integer; i,j,max,k,j1: integer; beginrandomize; for i: =1 to n dofor j: =1 to n doa[i,j]: =random (10) -5; for i: =1 to n dobeginfor j: =1 to n dowrite (a[i,j]: 3); writeln; end; writeln; k: =1; max: =-5; repeatfor i: =k to k dofor j: =1 to n doif a[i,j]>max then begin max: =a[i,j]; j1: =j; end; a[i,j1]: =a[i,1]; max: =-5; inc (k); until k=n+1; for i: =1 to n dobeginfor j: =1 to n dowrite (a[i,j]: 3); writeln; end; writeln; end.