Процедура без параметров: Сложить отдельно чёрные и белые элементы матрицы

Program PRG4;
Uses crt;
type matrix = array[1..100,1..100] of integer;
var
m,n: integer;
ch,c: char;
deistv,tip: byte;
S1,S2: longint;
a: matrix;
procedure rez(m,n : integer; sp : byte; tip : byte; var S1,S2 : longint);
{m,n - razmernost; sp - deistvie nad elementami; tip - tip elementov; S1,S2 - peremennie}
var i,j : integer;
begin
case sp of
 1 : begin
     S1 := 0;
     S2 := 0;
     for i:=1 to m do
      for j:=1 to n do
       begin
       case tip of
        1 : if a[i,j] mod 2 = 0 then inc(S1,a[i,j])
            else inc(S2,a[i,j]);
        2 : if a[i,j]>0 then inc(S1,a[i,j])
            else if a[i,j]<0 then inc(S2,a[i,j]);
        3 : if (i+j) mod 2 = 0 then inc(S1,a[i,j])
            else inc(S2,a[i,j]);
       end;
       end;
     end;
 2 : begin
     S1 := 1;
     S2 := 1;
     for i:=1 to m do
      for j:=1 to n do
       begin
       case tip of
        1 : if a[i,j] mod 2 = 0 then S1 := S1 * a[i,j]
            else S2 := S2 * a[i,j];
        2 : if a[i,j]>0 then S1 := S1 * a[i,j]
            else if a[i,j]<0 then S2 := S2 * a[i,j];
        3 : if (i+j) mod 2 = 0 then S1 := S1 * a[i,j]
            else S2 := S2 * a[i,j];
       end;
       end;
      end;
 
     end;
end;
{----------------}
procedure vvod(m,n : integer; var a : matrix);
 var i,j : integer;
 begin
 for i:= 1 to m do
  for j:=1 to n do
   begin
   write('Vvedite A[',i,',',j,']: ');
   readln(a[i,j]);
   end;
 writeln('-----------');
 writeln;
 end;
{-------}
 
begin
Clrscr;
 
 
 
repeat
clrscr;
write('Vvedite kolichestvo strok: ');
readln(m);
 
write('Vvedite kolichestvo stolbcov: ');
readln(n);
 
vvod(m,n,a);
 
writeln('Vyberite deistvie (1 - summa, 2 - proizvedenie, 3 - raznost):');
 repeat
 c := readkey;
 until (c='1') or (c='2') or (c='3');
 if c='1' then deistv:=1;
 if c='2' then deistv:=2;
 if c='3' then deistv:=3;
 
 writeln('Vyberite tip elementov:');
 writeln('1 - chetnye/nechetnye');
 writeln('2 - polozhitelnye/otricatelnye');
 writeln('3 - "chernye"/"belye"');
 repeat
 c := readkey;
 until (c='1') or (c='2') or (c='3');
 case c of
 '1' : tip := 1;
 '2' : tip := 2;
 '3' : tip := 3;
 end;
 
 rez(m,n,deistv,tip,S1,S2);
 writeln('Rezultat: S1 = ',S1);
 writeln('S2= ',S2);
 
 writeln('Hotite vvesti eshe odnu matricu? (y/n)');
 repeat
 c := readkey;
 until (c='y') or (c='n');
until c='n';
end.

var a,b,c:real;
procedure summa;
begin
c:=a+b
end;
begin
writeln('Введите a,b');
readln(a,b);
summa;
write('c=',c:0:2);
readlb
end.

case tip of
        1 : if a[i,j] mod 2 = 0 then inc(S1,a[i,j])
            else inc(S2,a[i,j]);
        2 : if a[i,j]>0 then inc(S1,a[i,j])
            else if a[i,j]<0 then inc(S2,a[i,j]);
        3 : if (i+j) mod 2 = 0 then inc(S1,a[i,j])
            else inc(S2,a[i,j]);