Дан целочисленный квадратный массив 10 х 10. Найти сумму максимальных элементов из каждой строки — Pascal(Паскаль)

Program dmas_18;

uses crt;

const
  N = 10;

var
  A: array [1 .. N, 1 .. N] of integer;
  i, k, max, Sum: integer;

begin
  randomize;
  For i := 1 to N do
  begin
    For k := 1 to N do
    begin
      A[i, k] := random(50);
      write(A[i, k]:4);
    end;
    writeln;
  end;
  Sum := 0;
  for i := 1 to N do
  begin
    max := A[i, 1];
    for k := 2 to N do
      if A[i, k] > max then
        max := A[i, k];
    Sum := Sum + max;
  end;
  writeln('Сумма максимальных эл. = ', Sum);
  Readln;

end.