Паскаль. среднее арифметическое простых чисел матрицы

[валёна]

Помогите,пожалуйста, решить задачу!!
Дана матрица размерностью N*M. Найти среднее арифметическое простых чисел матрицы

[Stilet]

Вот тебе пример:

 function is_prime(n:integer):boolean;
 var j:integer;
 begin
    if (n <= 1) then begin  is_prime:=false;exit; end;
    j:= 2;
     while((j*j<= n)) do begin
         if (n mod j = 0) then begin is_prime:=false;exit; end;
         inc(j);
     end;
    is_prime:=true;
  end;

  const n=5;m=6;
  var a:array[1..n,1..m] of integer;
          q,w,sra,cnt:integer;
begin                cnt:=0; sra:=0;
 for q:=1 to n do begin
  for w:=1 to m do begin
   a[q,w]:=random(100);
   if is_prime(a[q,w]) then begin inc(cnt);sra:=sra+a[q,w];write(a[q,w]:5,'|');end
   else
    write(a[q,w]:5);
  end;
  writeln;
 end;
  Writeln;Writeln(sra div cnt);
 readln;
  { TODO   -oUser -cConsole Main : Insert code here }
end.

[валёна]

спасибо большое!