Найти среднее арифметическое элементов матрицы А(7х9) больших девяти — Pascal(Паскаль)

uses
  crt;
const
  str=7;
  col=9;
var
  a:array [1..str,1..col] of integer;
  b:array[1..str]of integer;
  i,j,sum,c:integer;
begin
  clrscr;
  c:=0;
  sum:=0;
 
  writeln('Массив:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(28)-10;
      if a[i,j]>9 then
      begin
        inc(sum,a[i,j]);
        inc(c)
      end;
      write(a[i,j]:3,' ')
    end;
    writeln
  end;
  writeln('Итого: ',sum/c)
end.

const n=3;
      m=3;
var a:array[1..n,1..m] of integer;
    i,j,sum,p:integer;
    sr:real;
 begin
  Writeln('Введите массив...');
   for i:=1 to n do
    for j:=1 to m do
     begin
      Write('a[',i,',',j,']->');
      Readln(a[i,j]);
     end;
   sum:=0;
   for i:=1 to n do
    for j:=1 to m do
     if a[i,j]>9 then
     begin
      sum:=sum+a[i,j];
      p:=p+1;
      sr:=sum/p;
     end;
  Writeln('Среднее арифметическое ',sr:3:2);
 Readln;
end.