Двухмерные массивы: Составить программу подсчёта суммы произведений элементов строк - Pascal

const
  rows = 7;
  colls = 3;
var
  matrix: array[1..rows, 1..colls] of integer;
  mult, sum: integer;
  i, j: byte;
begin
  randomize;
  sum:=0;
  writeln('Матрица: ');
  for i:=1 to rows do
  begin
    mult:=1;
    for j:=1 to colls do
    begin
      matrix[i, j]:=random(25);
      write(matrix[i, j]:4);
      mult:=mult * matrix[i, j];
    end;
    inc(sum, mult);
    writeln;
  end;
  writeln('Сумма произведений элементов строк: ', sum);
end.