Найти максимальный элемент каждой строки матрицы

uses crt;
const n=10;
      m=10;
var a:array[1..n,1..m]of integer;
    b:array[1..n]of integer;
    i,j:byte;
    max:integer;
begin
clrscr;
writeln('Dannai matrica:');
writeln;
randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(10)-5;
        write(a[i,j]:5);
        end;
    writeln;
    end;
writeln;
writeln('Massiv,elementi kotorogo aivlaiuitsai malsimalnie elementi matrici:');
writeln;
for i:=1 to n do
    begin
    max:=a[1,1];
    for j:=1 to m do
        if a[i,j]>max then max:=a[i,j];
    b[i]:=max;
    end;
for i:=1 to n do write(b[i]:5);
readln;
end.

randomize;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        a[i,j]:=random(10)-5;
        write(a[i,j]:5);
        end;
    writeln;
    end;

for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
    readln;
clrscr;
writeln('Dannai matrica:');
for i:=1 to n do
begin
    for j:=1 to m do write(a[i,j]:3);
writeln;
end;