Определить наибольший общий делитель введённое последовательности чисел с использованием рекурсии- Pascal(Паскаль)

uses crt;
function SumCif(a:word):byte;
var s:byte;
begin
s:=0;
while s>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;
SumCif:=s;
end;
var i:longint;
begin
clrscr;
writeln('С частливые билеты:');
for i:=100000 to 999999 do
if SumCif(i div 1000)=SumCif(i mod 1000) then writeln(i);
readln
end.