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

var mas:array [1..100,1..100] of integer;
i,j,sum,n,m: integer;
begin
write('Введите кол-во строк n=');
readln(n);
write('Введите кол-во столбцов m=');
readln(m);
for i:= 1 to n do
for j:= 1 to m do
begin 
write('Введите элементы');
readln(mas[i,j]);
end;
write(mas[i,j]:3);
writeln;
readln;
for i:= 1 to n do
for j:= 1 to m do
begin
sum:=0;
for j:= 1 to m do
sum:=sum+mas[i,j];
end;
writeln(sum);
readln;
end.

uses crt;
var
   a:array[1..100] of integer;
   i,j,s,kol,n,f:integer;
begin
clrscr;
j:=1;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ=');
readln(n);
writeln('Ìàññèâ');
randomize;
for i:=1 to n do
 begin
  a[i]:=random(51);
  write(a[i]:3);
  for j:=2 to a[i]-1 do
   if (a[i] mod j<>0) or (a[i]=1) then f:=0 else
    begin
     f:=1;
     break;
    end;
  if (f=0) then
   begin
    s:=s+a[i];
    inc(kol);
   end;
  f:=0;
 end;
writeln;
if (kol=0) then writeln('Ïðîñòûõ ÷èñåë íåò!') else
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ïðîñòûõ ÷èñåë ',s/kol);
readln
end.

uses crt;
var
   a:array[1..100,1..100] of integer;
   s,i,j,n,m:integer;
   b:array[1..100] of integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ñòðîê=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ=');
readln(m);
writeln('Ìàññèâ');
randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(51);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=1 to m do
 begin
  for i:=1 to n do
   s:=s+a[i,j];
  b[j]:=s;
  s:=0;
 end;
for i:=1 to m do
 writeln('Ñóììà ýëåìåíòîâ ',i,' ñòîëáöà ',b[i]);
readln
end.