Все отрицательные элементы в строке матрицы, заменить их квадратами

const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
var n:integer;
procedure matrix(var a:mtr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure zamena(var a:mtr;s:string);
var i,j,imx:byte;
    mx:integer;
begin
mx:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]>mx then
 begin
  mx:=a[i,j];
  imx:=i
 end;
writeln('Максимальный элемент=',mx,' в строке ',imx);
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i>imx)and(a[i,j]<0)then a[i,j]:=sqr(a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
var a,b,c:mtr;
begin
randomize;
repeat
write('Размер матриц от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
matrix(a,'Исходная матрица А');
zamena(a,'Измененная матрица А');
matrix(b,'Исходная матрица B');
zamena(b,'Измененная матрица B');
matrix(c,'Исходная матрица C');
zamena(c,'Измененная матрица C');
end.