Среднее гармоническое в матрице

Const
k= ;
l= ;
Var
a:array[1..k,1..l] of integer;
i,j:byte;
sum,t:integer;
sra,srg:real;
Begin
{Ввод матрицы}
For i:=1 To k Do
                  For j:=1 To l Do
                                    begin 
                                    writeln('a[',k,',',l,']=');
                                    read(a[i,j]);
                                    end;
sum:=0; {Начальное значение суммы положительных элементов выше главной диагонали в матрице}
t:=0; {Начальное значение количества положительных элементов выше главной диагонали в матрице}
{Взятие элементов выше главной диагонали}
For i:=1 To k-1 Do
                     For j:=1 To l Do
                                      begin
                                      {Взятие только положительных элементов}
                                      If a[i,j]>0 Then
                                                    begin
                                                    sum:=sum+a[i,j]; 
                                                    t:=t+1;  
                                                    end;
                                      end;
sra:=sum/t; {Среднее арифметическое}
srg:=t/sra; {Среднее гармоническое}
writeln(srg);
End.