Найти среднее арифметическое положительных элементов массива

var a:array[1..10,1..10] of integer;
    n,i,j,k,s,imn,jmn:integer;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
writeln('Введите элементы двумерного маccива, целые числа');
k:=0;
s:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
  if a[i,j]>0 then
     begin
      inc(k);
      s:=s+a[i,j];
     end;
  end;
writeln('Введеный масив');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
if k=0 then
 begin
  writeln('В массиве нет положительных элементов');
  exit;
end;
s:=round(s/k);
writeln('Средне арифметическое положительных элементов=',s);
if s in [5..10] then
 begin
  writeln('Оно принадлежит интервалу [5..10]');
  imn:=2;
  jmn:=1;
  for i:=2 to n do
  for j:=1 to i-1 do
  if a[i,j]<a[imn,jmn] then
   begin
    imn:=i;
    jmn:=j;
   end;
  writeln('Минимальный элемент ниже главной диагонали=',a[imn,jmn],'  его индексы [',imn,',',jmn,']');
  a[imn,jmn]:=s;
  writeln('Замена минимального на среднее');
 end
else
 begin
  writeln('Оно не принадлежит интервалу [5..10]');
  for i:=1 to n do
  inc(a[i,n-i+1],s);
  writeln('Увеличение элементов побочной диагонали на среднее');
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
end.