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

[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.

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

[Айра]

хм.. интересно.. сейчас убрала все, что не относится к функции и добавила заполнение.. все считает:

program zadacha;
const n1=2;
      n2=3;
   type mt=array [1..20,1..20] of real;
   var
    A,H:mt;
    i,j: integer;
    IM1:char;
    l: real;
function sumelem(IM: char; Matr1: mt;  n,m:integer):real;
var i,j:integer;
    sum: real;
begin
  writeln;
  sum:=0;
  for i:=1 to n do
    for j:=1 to m do
      sum:=sum+Matr1[i,j];
  sumelem:=sum;
end;

begin
for i:=1 to n1 do
  begin
    for j:=1 to n2 do
      begin
        A[i,j]:=random(5);
        write('',A[i,j]:3 :2,'  ');
      end;
    writeln;
  end;

  l:= sumelem (IM1, A, n1, n2);
  write('Сумма всех элементов матрицы: ',l:8:2);
end.

Возможно ошибка где-то в другом месте.. без полного кода угадать где она не могу..

добавлено: ребят, что-то с тегами не то, вот тут смайлик хочет отобразиться - write('',A[i,j]2,' ');

Сообщение отредактировано: Айра - 13.06.2008 22:10