Ввести матрицу, в каждой строке найти максимум и перемножить максимум с 1-ой и посл. строки, со второй и предпосл. и обр

Program matrica;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n:integer;
     max,summa:integer;
begin
clrscr;
{вводим кол-во елементов}
 Writeln (' vvedite kol-vo elementov  ');
Readln (n);
{заполняем массив эелементами}
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
{выводим сначало введеную матрицу}
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
{Ищем максимальные элементы в каждой строке}
for i:=1 to n do begin
                      max:=b[i,1];
                      for j:=2 to n do
                      if b[i,j]>max then max:=b[i,j];
                      a[i]:=max;
                      end;
summa:=0;
for i:=1 to n-1 do begin
summa:=summa+a[i]*a[n-i];
end;
writeln(summa);
end.

for i:=1 to n do begin
summa:=summa+a[i]*a[n-i+1];