дан одномерный массив натуральных чисел получить из него другой массив составленный из наименьших общих кратных двух соседних чисел. pascal abc СРОЧНО!!

//PascalABC.Net 3.2
function NOK(a, b: integer):integer;
begin
while a<>b do
  if a>b then a-=b else b-=a;
result:=a;
end;

begin
var a:=ReadArrInteger('Вводите: ', readinteger('Размерность массива: '));
var b: array of integer; setLength(b, length(a)-1);
for var i:=0 to length(a)-2 do b[i]:=(a[i]*a[i+1]) div NOK(a[i], a[i+1]);
a.Println;
b.Print;
end.