Delphi - lab8

program lab8;
type
   matr = array[1..15, 1..15] of real;
var
  n, k, j: integer;
  y, z, b: real;
  a: matr;

function fz(m: matr; mn:integer) : real;
var
     i, h: integer;
     o, sum: real;
begin
    o := 1;
    for i:=1 to mn do
        begin
             sum := 0;
             for h:=1 to mn do
                sum := sum + m[i][h];
             o := o * sum;
        end;

     fz := sqrt(o);
end;
begin
  writeln('input n: ');
  readln(n);
  if (n < 1) or (n > 15) then
    writeln('Error: n not in [1, 15].')
  else
  begin
    writeln('input matr a: ');
    for k:=1 to n do
        for j:=1 to n do
            readln(a[k][j]);
    {max}
     for k:=1 to n do
      begin
         y := a[k][1];
         for j:= 2 to n do
            if y < a[k][j] then
              y := a[k][j];
      end;

     z := fz(a, n);
     b := y*z;
     writeln('b = ', b:10:2);
  end;
  readln;
end.