Заполнить двумерный массив 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]gt;max then begin max:=a[i,j];k:=j;end; //проверяем, если элемент массива больше чем наибольший, то записываем его в наибольший
m:=a[i,1];a[i,1]:=a[i,k];a[i,k]:=m; //меняем местами 1-ый элемент в строке с наибольшим в этой строке
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4); //выводим полученный массив на экран
writeln;
end;
end.