Определить сумму положительных и чётных элементов, и отрицательных и нечётных

program Lab9_1;
  uses Crt;
  const k=7;
  type mas=array[1..k] of integer;
  var m:mas; i:integer; s4,sne4:integer; ch:char; fil:text;
 
 Procedure vvod_mas(var m:mas);
 begin
    append(fil);
    write('ввод значений элементов');
    writeln(' одномерного массива');
     for i:=1 to k do
       begin
        write('введите ',i,' элемент последовательности ');
        readln(m[i]);
       end;
  end;
  
 Procedure sum_pol_4et(var m:mas);
 begin
    append(fil);
     For i:=1 to k do
        if (m[i]>=0) and (m[i] mod 2=0) then s4:=s4+m[i];
 end;
 
 Procedure sum_otr_ne4et(var m:mas);
 begin
    append(fil);
     For i:=1 to k do
        if (m[i]<0) and (m[i] mod 2<>0) then sne4:=sne4+m[i];
 end;
 
BEGIN
   ClrScr;
   assign(fil,'Lab9_1');
   rewrite(fil);
   sum_pol_4et(m);
   sum_otr_ne4et(m);
   vvod_mas(m);
   writeln('одномерный массив');
   close(fil);
END.

program Sergei_SiDe;
 
uses
  crt;
 
var
  mas: array[1..100, 1..100] of integer;
  n, i, m, j, s: integer;
 
begin
  s := 0;
  Write('Enter N = ');readln(n);
  Write('Enter M = ');readln(m);
  for i := 1 to n do 
  begin
    for j := 1 to m do
    begin
      mas[i][j] := random(10) - 5;
      write(mas[i][j]:4, ' ');
      if ((mas[i][j] < 0) and ((mas[i][j] mod 2) = 0)) then s := s + mas[i][j];
    end;
    writeln;
  end;
  Writeln('Answer = ', s);
end.