Дана матрица n x m, найти сумму и произведение К строки матрицы — Pascal(Паскаль)

program sumandproisMatrix;

uses crt;

const
  n = 5;
  m = 4;

var
  a: array [0 .. n, 0 .. m] of integer;
  b: array [0 .. n] of longint;
  k, i, p, sum, pr, u: longint;

begin
  clrscr;
  randomize;
  for i := 1 to n do
    for p := 1 to m do
    begin
      a[i, p] := random(100);
    end;
  for i := 1 to n do
  begin
    writeln;
    for p := 1 to m do
      write(a[i, p]:5);
  end;
  writeln();
  writeln('Введите номер строки,сумму и произведение которой вы хотите посчитать:'
    :95);
  read(k);
  sum := 0;
  pr := 1;
  writeln;
  for i := 1 to m do
  begin
    sum := sum + a[k, i];
    pr := pr * a[k, i];
  end;
  writeln('Сумма элементов ', k, ' строки=', sum);
  write('Произведение элементов ', k, ' строки=', pr);

end.