Найти сумму элементов строки, в которой расположен наибольший элемент — Pascal(Паскаль)

USES CRT;

Type
  mas1 = array [1 .. 5, 1 .. 3] of integer;

Var
  M: mas1;
  i, j, mах, p: byte;

begin
  Randomize;
  For i := 1 to 5 do
  begin
    For j := 1 to 3 do
      M[i, j] := random(50) - 10;
  end;
  For i := 1 to 5 do
  Begin
    For j := 1 to 3 do
    Begin
      Write(M[i, j]:5);
    end;
    Writeln;
  End;
  For i := 1 to 5 do
  Begin
    p := 0;
    For j := 1 to 3 do
      max := M[i, j];
    If M[i, j] > max then
    begin
      p := p + M[i, j];
      Writeln;
      Write(p:5);
    end
  End;

End.