Вывести среднее арифметическое простых чисел среди элементов массива, которые являются делителями числа 360

const
  nmax=100;
  c=360;
type
  arr=array[1..nmax] of longint;
var
  z:arr;
  i,j,n,k,s:integer;
  isSimple:boolean;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  for i:=1 to n do
    begin
      z[i]:=random(20);
      write(z[i]:6);
    end;
  writeln;
  s:=0;
  k:=0;
  for i:=1 to n do
    begin
      isSimple:=true;
      for j:=2 to z[i] div 2 do
        if z[i] mod j=0 then
          begin
            isSimple:=false;
            break;
          end;
      if isSimple and (z[i]>1) then
        if c mod z[i]=0 then          
          begin
            s:=s+z[i];
            inc(k);
          end;
    end;
  writeln('Srednee arifm. prostyh chisel v massive, kot. yavl. delitelyami 360:',(s/k):0:1);
end.