Составить программку для нахождения НОД 10 двухзначных чисел. Паскаль.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function gcd(a,b:integer):integer; // НОД
begin
  while blt;gt;0 do begin a:=a mod b; Swap(a,b) end;
  Result:=a
end;

begin
  var a:=ReadArrInteger('Введите 10 естественных двухзначных чисел:',10);
  var g:=gcd(a[0],a[1]);
  for var i:=2 to 9 do g:=gcd(g,a[i]);
  Writeln('НОД=',g)
end.

Пример
Введите 10 естественных двухзначных чисел: 38 42 56 82 96 32 18 40 58 90
НОД=2