Вывести следующую дату после указанной

Var
  St : String;
 
Function NextDate(S : String) : String;  {dd.mm.gggg, без контроля начальных значений}
Var
  d,m      : Byte;
  g        : Integer;
  dd,mm,gg : String;
  Vis      : Boolean;
  
  Procedure IncDate;
  Begin
    d:=1;
    m:=m+1;
    If M>12 then
        Begin
          m:=1;
          G:=G+1;
        end;
  end;
  
Begin
  If Length(S)<>10 then Halt; {ну или вежливое указание на ошибку ввода данных}
  d:=StrToInt(LeftStr(S,2));
  m:=StrToInt(Copy(S,4,2));
  g:=StrToInt(RightStr(S,4));
  Vis:=((g mod 400)=0) or (((g mod 4)=0) and ((g mod 100)<>0)); {високосный год}
  
  Inc(d);
  If d>28 then
  Begin
    If m<>2 then
    Begin
      If d>30 then
        If (m in [4,6,9,11]) or (d>31) then IncDate;
    end
      else
        If not (Vis and (d=29)) then IncDate;
  end;
  
  dd:=IntToStr(d);
  If d<10 then dd:='0'+dd;
  mm:=IntToStr(m);
  If m<10 then mm:='0'+mm;
  gg:=IntToStr(g);
  NextDate:=dd+'.'+mm+'.'+gg;
end;
 
Begin
  St:='31.12.2014';
  Writeln('Сегодня: ',St);
  Writeln('Завтра:  ',NextDate(St));
  Writeln;
  St:='28.02.2011';
  Writeln('Сегодня: ',St);
  Writeln('Завтра:  ',NextDate(St));
  Writeln;
  St:='28.02.2012';
  Writeln('Сегодня: ',St);
  Writeln('Завтра:  ',NextDate(St));
  Writeln;
  St:='29.02.2012';
  Writeln('Сегодня: ',St);
  Writeln('Завтра:  ',NextDate(St));
end.