Написать программу решения следующей задачи: Вычислить и запомнить суммы положительных элементов каждой строки матриц A

uses graphabc;
type mas1=array[1..10] of real;
mas2=array[1..10,1..10] of real;
var a,b:mas2; d,f:mas1;
i,j,n,m,k,s:integer;
procedure mav(a:mas2; n,m:integer; var x:mas1);
var i,j:integer;
begin
  for i:=1 to n do
  begin
    x[i]:=0;
    for j:=1 to m do
      if a[i,j]>0 then
        x[i]:=x[i]+a[i,j];
        end;
        end;
        begin
          m:=6; n:=6; k:=5; s:=5;
          writeln('Ввод массива А');
          for i:=1 to n do
          begin
            for j:=1 to m do
            begin
              read (a[i,j]);write (' ',a[i,j]);
              end;
              writeln('');
              end;
              writeln('');
              writeln('Ввод массива B');
              for i:=1 to k do
              begin
                for j:=1 to s do
                begin
                  read (b[i,j]); write(' ',b[i,j]);
                  end;
                  writeln('');
                  end;
                  mav(a,n,m,d); mav(b,k,s,f);
                  writeln('');
                  writeln('Вывод результатов');
                  for i:=1 to n do
                    write (d[i], ' ');writeln;
                    for i:=1 to k do write (f[i], ' ');
                    end.

program ghjkl;
type
  Tmas1 = array[1..10] of real;
  Tmas2 = array[1..10,1..10] of real;
 
procedure mav(arr: Tmas2; narr,marr: integer; var xrr: Tmas1);
// Процедура, которая ищет и суммирует элементы с положительным значением.
var
  i,j: integer;
begin
  for i:= 1 to narr do
    begin
      xrr[i]:= 0;
      for j:= 1 to marr do
        if arr[i,j] > 0 then
          xrr[i]:= xrr[i] + arr[i,j];
    end;
end;
 
var
  a,b: Tmas2; // Переменные для хранения двумерных массивов
  d,f: Tmas1; // Переменные для хранения одномерных массивов.
  i,j: integer; // Вспомогательные переменные для организации массивов.
  n,m,k,s: integer; // Переменные для хранения значений количества строк и столбцов.
begin
  m:= 6;
  n:= 6;
  k:= 5;
  s:= 5;
  writeln('Ввод массива А: ');
  for i:= 1 to n do
    for j:= 1 to m do
        begin
          write('Введите значение элемента а[',i,',',j,']: ');
          readln(a[i,j]);
        end;
  writeln('Ввод массива B: ');
  for i:= 1 to k do
    for j:= 1 to s do
        begin
          write('Введите значение элемента b[',i,',',j,']: ');
          readln (b[i,j]);
        end;
  writeln('Исходный массив А: ');
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:7:1);
      writeln;
    end;
  writeln('Исходный массив B: ');
  for i:= 1 to k do
    begin
      for j:= 1 to s do
        write(b[i,j]:7:1);
      writeln;
    end;
  mav(a,n,m,d);
  mav(b,k,s,f);
  writeln;
  writeln('Результат обработки массива А: ');
  for i:= 1 to n do
    write(d[i]:7:1);
  writeln;
  writeln('Результат обработки массива В: ');
  for i:= 1 to k do
    write(f[i]:7:1);
  readln;
end.