Сформировать двумерный массив C размером 2 x 5 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов в каждой строке матрицы C (оформить вычисление сумм в виде процедуры). Из полученных сумм составить одномерный массив D. Вывести элементы массива D на экран и в файл — Pascal(Паскаль)

uses crt;

const
  n = 2;
  m = 5;

var
  a: array [1 .. n, 1 .. m] of integer;
  d: array [1 .. n] of integer;
  i, j: integer;
  input: text;

procedure summ(var s: integer; k: integer);
var
  j: integer;
begin
  s := 0;
  for j := 1 to m do
    if a[k, j] > 0 then
      s := s + m[k, j];
end;

begin
  clrscr;
  randomize;
  assign(input, 'input.txt');
  reset(input);
  writeln('Исходный массив');
  writeln(input, 'Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100);
      write(a[i, j]:3);
      write(input, a[i, j]:3);
    end;
    writeln;
    writeln(input);
  end;

  for i := 1 to n do
  begin
    summ(d[i], i);
    writeln('Строка ', i, ' - ', d[i]);
    writeln(input, 'Строка ', i, ' - ', d[i]);
  end;
  writeln('Массив D');
  writeln(input, 'Массив D');
  for i := 1 to n do
  begin
    write(d[i]:3);
    write(input, d[i]:3);
  end;
  close(input);

end.