Общий знаменатель для случайного массива чисел

[golqaer]

Условие: программа создает массив случайных чисел, в массиве n чисел. Программа должна найти общий наибольший знаменатель для всех n чисел и вывести его на экран.
Вот моя программа и ее проблема в том, что она не работает
жирным выделил свое подозрение на ошибку, но я не знаю точно уже

program massive_mod;
uses crt;
const n=3;
var M:array[1..n] of integer;
i,d,s:integer;
cond:boolean;
begin

clrscr;
d:=1;
randomize;

for i:=1 to n do
M[i]:=random(10);

repeat
cond:=false;
for i:=1 to n-d do
if M[i]>M[i+1] then
begin
cond:=true;
s:=M[i+1];
M[i+1]:=M[i];
M[i]:=s;
end;
d:=d+1;
until cond=false;

for i:=1 to n do
write(M[i], ' ');


cond:=true;

for i:=1 to n do
begin
d:=M[n];
d:=d+1;
repeat
d:=d-1;
if M[i] mod d = 0 then
cond:=true
else cond:=false;
until cond=false;
end;


writeln;
write(d);


readln;
end.

[GetMax]

Если я правильно понял задание и предполагается найти наименьший общий знаменатель , то что то вроде этого

const n=3;
var M:array[1..n] of integer;
i,d,s,j:integer;
cond:boolean;
Begin
  randomize;

for i:=1 to n do
M[i]:=1+random(10);

d:=n;
repeat
cond:=false;
for i:=1 to d-1 do
if M[i]>M[i+1] then
begin
s:=M[i+1];
M[i+1]:=M[i];
M[i]:=s;
cond:=true;
end;
dec(d)
until Not cond;

for i:=1 to n do
write(M[i], ' ');


cond:=true;

for i:=M[n] to High(integer) do
Begin
  cond:=true;
  for j := 1 to N do
  Begin
   if i mod M[j] <> 0 then
  Begin
    cond:=false;
    break
  End;
  End;
  if cond then
  Begin
    d:=i;
    break
  End;
End;

writeln;
write(d);

End.

[Arhangel7]

тут, наверное, задание неполное.
Т.к. в вашем случае все представлено так
n[1] n[2] n[3]
...X.....X.....X
ИМХО:
где X - любое натуральное число, n = 3;
X = +~(бесконечность);
Т.к. обратное не указано (не запрещено), значит так, писать код вообще не имеет смысла.

как - то так...