Ak sú tie prvé veci v pohode (našiel si minimum a maximum, vypočítal priemer), potom aký máš vlastne problém?
Prechádzaj celým poľom a testuj či je číslo z poľa deliteľné najmenším číslom:

if (Cislo mod delitel)=0 then
    writeln('Zadane cislo je delitelne cislem ',delitel)
  else
    writeln('Zadane cislo neni delitelne cislem ',delitel);