Определить в каком году день рожденья любого человека выпадет на тот же день недели, в который он родился

Var
VernaiaData: Boolean;
Den,Mesac,GodStoletia: Integer;
Procedure DenZapis(Var Den,Mesac,GodStoletia : Integer; Var Popravka: Boolean);
Begin
Write('Введите ваш день рожденья(дд мм гггг): ');
ReadLn(Den,Mesac,GodStoletia);
Popravka:= (Den>=1)and (Den<=31) and (Mesac>=1)and (Mesac<=12) and (GodStoletia>=1950) and (GodStoletia<=2011)
end;
Procedure DenVivod(Den,Mesac,GodStoletia : Integer);
const
Dni: array [0..6] of String [11] =('Воскресенье','Понедельник','Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота') ;
Var
Stoletie,Schet:Integer;
Begin
if Mesac < 3 then
Begin
Mesac:=Mesac+10;
GodStoletia:=GodStoletia-1
End
Else
Mesac:=Mesac-2;
Stoletie:= GodStoletia div 100;
GodStoletia:= GodStoletia  mod 100;
Schet:= abs(trunc(2.6*Mesac-0.2)+Den+GodStoletia  div 4+GodStoletia +Stoletie div 4-2*Stoletie) mod 7;
WriteLn('Ваш день рожденья = ',Dni[Schet] );
End;
Begin
Repeat
DenZapis(Den,Mesac,GodStoletia,VernaiaData);
If VernaiaData then
DenVivod(Den,Mesac,GodStoletia)
Until not VernaiaData
End.

var
  VernaiaData: Boolean;
  Den, Mesac, GodStoletia, year, year_next, mesac_new: Integer;
 
procedure DenZapis(var Den, Mesac, GodStoletia: Integer; var Popravka: Boolean);
begin
  Write('Введите ваш день рожденья(дд мм гггг): ');
  ReadLn(Den, Mesac, GodStoletia);
  Popravka := (Den >= 1) and (Den <= 31) and (Mesac >= 1) and (Mesac <= 12) and (GodStoletia >= 1950) and (GodStoletia <= 2011);
  year := GodStoletia;
  mesac_new := mesac;
end;
 
procedure DenVivod(Den, Mesac, GodStoletia: Integer);
const
  Dni: array [0..6] of String[11] = ('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота');
var
  Stoletie, Schet: Integer;
  day: String[11];
begin
  if Mesac < 3 then
  begin
    Mesac := Mesac + 10;
    GodStoletia := GodStoletia - 1
  end
  Else
    Mesac := Mesac - 2;
  Stoletie := GodStoletia div 100;
  GodStoletia := GodStoletia  mod 100;
  Schet := abs(trunc(2.6 * Mesac - 0.2) + Den + GodStoletia  div 4 + GodStoletia + Stoletie div 4 - 2 * Stoletie) mod 7;
  WriteLn('Ваш день рожденья = ', Dni[Schet] );
  day := Dni[Schet];
  repeat
    year := year + 1;
    year_next := year;
    mesac := mesac_new;
    if mesac_new < 3 then
    begin
      mesac := mesac + 10;
      year_next := year_next - 1
    end
    Else
      mesac := mesac - 2;
    Stoletie := year_next div 100;
    year_next := year_next  mod 100;
    Schet := abs(trunc(2.6 * mesac - 0.2) + Den + year_next  div 4 + year_next + Stoletie div 4 - 2 * Stoletie) mod 7;
    if day = Dni[Schet] then writeln('Будет такой же день в ', year, ' году');
  until day = Dni[Schet];
end;
 
begin
  repeat
    DenZapis(Den, Mesac, GodStoletia, VernaiaData);
    if VernaiaData then
      DenVivod(Den, Mesac, GodStoletia);
  until not VernaiaData;
end.