Подскажите, пожалуйста, типовая задачка по матрице

program Matrix;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
mas, mis : array[1..nmax] of integer;
max:integer;
n,i,j:integer;
begin
randomize;
writeln ('Vvedite poryadok kvadratnoy matritsi n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a [i,j]:=random(10)
end;
end;
for j:=1 to n do
begin
mas [i]:=a[i,j];
for i:=1 to n do
begin
if mas[i] < a[i,j] then mas[i]:=a[i,j];
end;
end;
for i:=n to 1 do
begin mis[i]:=mas[i];
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write (a[i,j]:2);
writeln (' ',mas[i]);
writeln (' ',mis[i]);
end;
end.

const nmax = 10;
var a: array [1..nmax, 1..nmax] of integer;
x: array[1..nmax] of integer;
n, i, j: integer;
begin
randomize;
repeat
  write('Vvedite poryadok kvadratnoy matritsi n: ');
  readln(n);
  if (n < 1) or (n > nmax) then writeln('Poryadok matritsi vne diapazona 1..', nmax, ' vvedite zanovo.')
until (n >= 1) and (n <= nmax);
writeln('Ishodnaya matritsa:');
for i := 1 to n do
  begin
  for j := 1 to n do
    begin
    a [i, j] := random(10);
    write(a[i, j]:3)
    end;
  writeln
end;
for i := 1 to n do
  begin
  x[i] := a[i,j];
  for j := 1 to n do if x[i] < a[i, j] then x[i] := a[i, j]
  end;
writeln('Maksimumi strok:');
for i := 1 to n do write(x[i]:3);
writeln;
j := 0;
for i := 1 to n do j := j + x[i] * x[n - i + 1];
writeln('Rezulxtat: ', j);
readln
end.