функции с параметрами Опции

[ship]

Приветик всем! У меня небольшая проблемка - функция в проге должна находить сумму всех элементов матрицы, но выдает всегда 0 (может не те параметры ). Пож. помогите

program zadacha;
  uses crt;
   type mt=array [1..20,1..20] of real;
   var
    A,H:mt;                    
    K:array [1..20] of real;   
    b:array [1..20] of integer;
    IM1:char;
    n1,m1:integer;    
    ch, fl:char;
    regim: byte;      
    formula: byte;   
    sum: real;
    l: real;
   function sumelem(IM: char;
                    Matr1: mt;
                    n,m:integer):real;
      var i,j:integer;
          sum: real;
       begin
           writeln;
	  sum:=0;
          begin
	  for i:=1 to n do
	  for j:=1 to m do
	  sum:=sum+Matr1[i,j];
          end;
          sumelem:=sum;
       end;
     .
     .
     .
     .

   l:= sumelem (IM1, A, n1, m1);
    textcolor(green);
    write('Сумма всех элементов матрицы: ',l:8:2);
    textcolor(white);
         writeln;
        writeln;
        writeln ('Завершить работу программы?');
        writeln ('   Y -да;');
        writeln ('   N - нет.');
          fl:=readkey;
        until (fl='Y') or (fl='y');
end.

заранее спасибо.

[Айра]

Нет функция, которая считает сумму у тебя правильная, только не знаю зачем в ней IM: char;
Тебе нужно немного переделать PRC1. Вот:

procedure PRC1 (IM:char; 
                var Matr1:mt;     //теперь это параметр-переменная
                var n,m: integer; //и здесь так же
                schet: byte;  
                Form: byte    );

Добавлено через 6 мин.
знаешь, у меня такой вопрос.. ты пробовал компилировать то, что написал?

Добавлено через 2 мин.
и еще, sumelem у тебя считает сумму всех элементов матрицы, а ты когда выводишь, говоришь, что это сумма положительных.. в общем дорабатывай