Ветвление

[Малгано]

помогите пожалуйста доделать задачу, вот условие задачи:

Дата некоторого дня определяется двумя натуральными числами m (порядковый номер месяца) и n(число). Принять так же, что год не является високосным. По заданным n и m:
А) дату предыдущего дня(принять, что n и m не определяют 1 января);
Б) дату предыдущего дня(принять, что n и m не определяют 31 декабря);

у меня не получается сделать что год не является високосным, что дата предыдущего дня не определяет 1 января и что дата предыдущего дня не определяет 31 декабря.

вот мой код этой задачи

procedure TForm5.Button6Click(Sender: TObject);               
var n,m,m1,f,f1,p:integer;
begin
  m:=StrToInt(edit18.text);
  n:=StrToInt(edit19.text);

  if (m=1) then edit31.text:='Январь';     //выводи отдельно месяц словом
  if (m=2) then edit31.text:='Февраль';
  if (m=3) then edit31.text:='март';
  if (m=4) then edit31.text:='Апрель';
  if (m=5) then edit31.text:='Май';
  if (m=6) then edit31.text:='Июнь';
  if (m=7) then edit31.text:='Июль';
  if (m=8) then edit31.text:='Август';
  if (m=9) then edit31.text:='Сентябрь';
  if (m=10) then edit31.text:='Октябрь';
  if (m=11) then edit31.text:='Ноябрь';
  if (m=12) then edit31.text:='Декабрь';

  if (n>31) then Application.MessageBox('месяц ограничен 31 днем','ERROR!',MB_OK);
  if (m>12) then Application.MessageBox('год ограничен 12 месяцами','ERROR!',MB_OK);

  if (f>0) then f:=n+1;
  if (f>0) then f1:=n-1;

  if (f>31) then  f:=1 else f:=n+1;
  if (f1<=1) then  f1:=31 else f1:=n-1;

  Edit20.text:=IntToStr(f1);          //вывод предыдущего дня
  edit21.text:=IntToStr(f);           //вывод следующего дня
end;

[Poma][a]

const
    mday : array [1..12] of Integer = (31, 29, 31, 30, 31, 30, 31, 31,
                     30, 31, 30, 31);

function IsLeapYear (y : Integer) : Boolean;
begin
    IsLeapYear := (y mod 400 = 0) or ((y mod 4 = 0) and (y mod 100 <> 0));
end;

procedure NextDay (var d, m, y : Integer);

begin
    Inc (d);

        if (d > mday[m]) or not(IsLeapYear(y)) and (m=2) and (d=29) then begin
            d := 1;
                Inc (m);
            if m > 12 then begin
                    m := 1;
                           Inc (y)
                end
        end;
end;

[Малгано]

спасибо за помощь, не подскажешь еще куда это вписывать надо?

[Poma][a]

ReadLn (d, m, y);
NextDay;
WriteLn (d, ' ', m, ' ', y)