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

Uses crt;
Const n=5; m=6;
Var: A:array[1..n,1..m] of integer;
  i,j,max:integer;
Begin
 clrscr;
  randomize;
  For i:=1 to n do
   Begin
    For j:=1 to m do
      Begin
        A[i,j]:=random(10);
        Write(A[i,j]); 
       End;
        Writeln;
      End;
    For j:=1 to n do
     Begin
      max:=1;
      For i:=2 to m do
       If  A[j,max]<A[j,i]
        Then max:=i; 
   Writeln('max=',A[j,max]);
      End;
End.

Program posled;
Uses crt;
Const n=3;m=3;
Var i,j,max:integer;
    A:array[1..n,1..m] of integer;
    B:array[1..m] of integer;
Begin
     ClrScr;
     Randomize;
     For i:=1 to n do Begin
     For j:=1 to m do
     Begin
     A[i,j]:=Random(50);
     Write(A[i,j]:4);
     End;
     writeln;
     End;
     writeln('Вектор максимальных ');
     For i:=1 to n do Begin
     max:=A[i,1];
     For j:=2 to m do
     if max<A[i,j] then max:=A[i,j];
     B[i]:=max;write(B[i]:4);
     End;
     readln;
End.

Uses crt;
Const m=5; n=6;
var A:array[1..m,1..n] of integer;
     b: array [1..m] of integer;
  i,j,max:integer;
Begin
clrscr;
randomize;
writeln('Матрица');
For i:=1 to m do
    Begin
    max:=1;
    For j:=1 to n do
        Begin
        A[i,j]:=random(10);
        Write(A[i,j]:3);
        If A[i,max]<A[i,j] then max:=j;
        End;
    b[i]:=a[i,max];
    Writeln;
    End;
writeln('Вектор');
for i:=1 to m do
    write(b[i]:3);
readln;
End.