По заданной квадратной матрицы размером 10 на 10 построить вектор из максимальных элементов строк матрицы — Pascal(Паскаль)

uses crt;
const n=10;
var a:array[1..10,1..10]of integer;
    b:array[1..n] of integer;
    i,j:byte;
    max:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
  end;
for i:=1 to n do
  begin
    max:=a[i,1];
    for j:=1 to n do
    if a[i,j]> max then max:=a[i,j];
    b[i]:=max;
  end;
writeln('Massiv:');
for i:=1 to n do
write(b[i],' ');
readln
end.