Найти сумму наибольших значений элементов строк матрицы

Program matric;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,max,s:integer;
begin
clrscr;
{Вводим колво строк и столбов матрицы}
 Writeln (' vvedite razmernost matrici ');
 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:=1 to n do
                      {Если есть елемент больше максимума то присваеваем ему значение максимума}
                      if b[i,j]>max then max:=b[i,j];
                      {Записываем максимальные элементы в новый массив}
                      a[i]:=max;
                      end;
{выводим полученный массив максимальных элементов строк}
Writeln (' Max elementy strok ');
for i:=1 to n do
write (a[i]:4);
writeln;
{Находим сумму этих элементов}
s:=0;
for i:=1 to n do
s:=s+a[i];
{Выводим значение суммы}
Writeln (' Ix summa = ',s);
Readln
end.