заполнить двумерный массив 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.