Посчитать сумму максимальных общих делителей 5 чисел

uses crt;
function max_del(a1, a2, a3, a4, a5 : integer) : integer;
var i,k : integer;
begin
  k := 1; {NOD}
  i:=1;
  while (i<=a1) and (i<=a2) and (i<=a3) and (i<=a4) and (i<=a5) do
  begin
    if ((a1 mod i = 0) and (a2 mod i = 0) and (a3 mod i = 0) and (a4 mod i = 0) and (a5 mod i = 0)) then
    k := i;
    i:= i + 1;
  end;
  max_del := k;
end;
 
var a1, a2, a3, a4, a5 : integer;
BEGIN
  write('a1 = ');
  readln(a1);
  write('a2 = ');
  readln(a2);
  write('a3 = ');
  readln(a3);
  write('a4 = ');
  readln(a4);
  write('a5 = ');
  readln(a5);
  write('max_del = ', max_del(a1, a2, a3, a4, a5));
  readln;
END.

uses crt;
function max_del(a1, a2 : integer) : integer;
var i,k : integer;
begin
  k := 1; {NOD}
  i:=1;
  while (i<=a1) and (i<=a2) do
  begin
    if ((a1 mod i = 0) and (a2 mod i = 0)) then
    k := i;
    i:= i + 1;
  end;
  max_del := k;
end;
 
var mas : array[1..5] of integer;
    i, sum : integer;
BEGIN
  for i := 1 to 5 do readln(mas[i]);
 
  sum := 0;
 
  for i:= 2 to 5 do sum := sum + max_del(mas[1], mas[i]);
  for i:= 3 to 5 do sum := sum + max_del(mas[2], mas[i]);
  for i:= 4 to 5 do sum := sum + max_del(mas[3], mas[i]);
  sum := sum + max_del(mas[4],mas[5]);
 
  writeln('sum = ',sum);
  readln;
END.