Процедура нахождения следа матрицы Опции

[Павел]

Если пишу в основной программе нахождение следа матрицы то все работает, но с процедурой что-то не получается, может кто посмотрит что не так?
Код вставлять не буду - слишком длинный, я файл прикрепил.

[Павел]

Вызываю процедуру, она ошибок не показывает но и не подсчитывает, выводит ноль.
Вот как она выглядит:

Код

procedure sled (a, b: integer; l: real; var c: massiv);
    var i, j: integer;
    begin
        l:=0;
        for i:=1 to a do
        l:=l+c[i,i];
    end; {sled}

Вот так вызываю процедуру:

Код

sled (a1, b2, l12, c12);
writeln('Sled matrici c12 =', l12:4:0);

Что тут не правильно?