PascalABC.Net Множество общих делителей

[hunter_321]

С клавиатуры вводятся неотрицательные целые числа. Признак конца ввода - ноль.
Получить множество общих делителей введённых чисел.
Есть наработки, но работает некорректно

const
  nmax = 100;
  n = 100;

type
  tmas = array [1..nmax] of integer;

function min(var a: tmas; n: byte): byte;
var
  minn: byte;
  i: integer;
begin
  minn := 1;
  for i := 1 to n - 1 do
    if a[i] < minn then 
      minn := a[i];
  min := minn;
end;

var
  a: tmas; 
  minn: integer;
  mn: set of 1..255;
  i, j, count: integer;

begin
  writeln('Исходные числа: ');
  count := 0;
  for i := 1 to n do
  begin
    read(a[i]);
    if a[i] = 0 then break;
    count += 1;
  end;
  writeln;
  minn := min(a, count+1);
  for j := 1 to minn+1 do
    for i := 1 to count do
      if(a[i] mod j = 0) and (a[count - i + 1] mod j = 0) then
        mn := mn + [j];
 //for i := 1 to minn do
    //if i in mn then writeln('Общий делитель = ', i);
  writeln(mn);
end.