Найти число положительных элементов и их сумму для матрицы A=(aij)m*n. Напечатать матрицу А — Pascal(Паскаль)

const
  n = 3;
  m = 5;

var
  a: array [1 .. n, 1 .. m] of integer;
  i, j, s, k: integer;

begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := 5 - random(10);
      write('  ', a[i, j]:3);
    end;
    writeln();
  end;
  writeln('--------');
  s := 0;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if a[i, j] > 0 then
      begin
        s := s + a[i, j];
        k := k + 1;
      end;
    end;
  end;

  writeln('--summa------');
  writeln(s);
  writeln('--kolvo------');
  writeln(k);

end.