Двумерные массивы. Вычисление среднего арифметического значения положительных чисел

...
var g: longint;
sum:real;
...
if a[k,n]>0 then
      begin
        inc(g);
        sum:=sum+a[k,n];
      end;
  writeln;
  writeln('Среднее арифметическое положительных чисел: ',(sum/g):6:2);
readln;

var a:array[0..15,0..15] of real;
f:array [0..30] of longint;
const i=15;
var x,n,k,g:longint;
sum:real;
begin
f[0]:=0;
f[1]:=1;
for x:=2 to 30 do
f[x]:=f[x-1]+f[x-2];
repeat
writeln ('Vvedite k: ');
readln (k);
writeln ('Vvedite n: ');
readln (n);
until (k<=5) and (n<=5);
for k:=1 to k do
for n:=1 to n do
a[k,n]:=n*f[i+11]*k+sin(k)*f[i+12];
for k:=1 to k do begin
for n:=1 to n do
write (a[k,n]:15:2);
writeln
end;
if a[k,n]>0 then
      begin
        inc(g);
        sum:=sum+a[k,n];
      end;
  writeln;
  writeln('Среднее арифметическое положительных чисел: ',(sum/g):6:2);
readln;
end.

var
  a:array[0..15,0..15] of real;
  f:array [0..30] of longint;
const
  q=15;
var
  i,j,x,n,k,g:longint;
  sum:real;
 
begin
  f[0]:=0;
  f[1]:=1;
  for x:=2 to 30 do
    f[x]:=f[x-1]+f[x-2];
  repeat
    writeln ('Vvedite k: ');
    readln (k);
    writeln ('Vvedite n: ');
    readln (n);
  until (k<=5) and (n<=5);
  for i:=1 to k do
    for j:=1 to n do
      a[i,j]:=i*f[q+11]*j+sin(j)*f[q+12];
  for i:=1 to k do
    begin
      for j:=1 to n do
        write (a[i,j]:15:2);
      writeln;
      if a[i,j]>0 then
        begin
          inc(g);
          sum:=sum+a[i,j];
        end;
    end;
  writeln;
  writeln('Среднее арифметическое положительных чисел: ',(sum/g):6:2);
  readln;
end.

end; //этот end;
if a[k,n]>0 then
      begin
        inc(g);
        sum:=sum+a[k,n];
      end;
// <---- вот сюда

for k:=1 to k do
for n:=1 to n do

for k:=1 to k do
for n:=1 to n do

for k:=1 to k do

for k := k - 5 to k * k
  begin
    {тело цикла}
  end;