Проблеммы с написанием программы!

[Den_Dodge]

Необходимо написать программу, которая выводит дату рождения(день и месяц) и выдает ближайший "счастливый" год. Счастливым считается тот год, остаток от деления суммы цифр которого на 10 совпадает с аналагичным остатком от деления дня или месяца рождения.

Есть наработки

 var
  dd, mm, sum1, sum2, sum11, sum21, tg, tg1, tgsum, tgsum01:Integer;
begin
 writeln('Welcome!');
 writeln;
 writeln;
 sum11:=0;
 sum21:=0;

  write('Enter a birthday: ');
  Readln(dd);
  while (dd>31) or (dd<1) do
  begin
    Write('Incorrect format.Enter a birthday: ');
    Readln(dd);
  end;
  Write('Enter month of birth: ');
  Readln(mm);
  while (mm>12) or (mm<1) do
  begin
    Write('Incorrect format.Enter month of birth: ');
    Readln(mm);
  end;

  Writeln('Full date of birth: ', dd, '.', mm);

  sum1:=(dd div 10)+(dd mod 10);
  sum2:=(mm div 10)+(mm mod 10); 
  sum11:=(sum1 mod 10); 
  sum21:=(sum2 mod 10); 

  Write('Enter the current year: ');
  Readln(tg);

  Repeat
   tg:=tg+1;
   tgsum:=tgsum+(tg mod 10);
   tgsum:=tgsum+(tg div 10 mod 10);
   tgsum:=tgsum+(tg div 100 mod 10);
   tgsum:=tgsum+(tg div 1000);

  Until (tgsum=sum11) or (tgsum=sum21);

    Writeln(tgsum);


  Readln;
end.

[Stilet]

http://www.programmersforum.ru/showthread.php?t=283139