Тип запись на паскале.

[qwertytol]

Напишите программу:
получающую дату, которая наступит через m дней;
Для представления даты использовать тип запись

Есть программа которая действует наоборот (получающую дату, которая была за m дней до сегодняшнего дня) как переделать.

uses
  crt;
type
  data = record
    day: 1..31;
    mounth: 1..12;
    year: 1900..2100;
  end;
var
  i,j,m,x,y: integer;
  d: data;
  p: boolean;
begin
  clrscr;
  writeln('wwedite sedneshnuu datu');
  write('day: ');
  readln(d.day);
  write('mounth: ');
  readln(d.mounth);
  write('year: ');
  readln(d.year);
  writeln('wwedite kol-wo dney: ');
  readln(m);
  writeln('Tekuhaya data: ',d.day,'.',d.mounth,'.',d.year);
  x:=d.day;
  if d.year mod 4 = 0 then   {если год високосный}
    p:=true
  else
    p:=false;
  while m>0 do
  begin
    x:=d.day;
    if m>d.day then
    begin
      d.mounth:=d.mounth-1;
      if d.mounth=0 then
        d.year:=d.year-1;
      dec(m,x);
      case d.mounth of
        1,3,5,7,8,10,12: y:=31;
        4,6,9,11: y:=30;
        2: if p then
             y:=29
           else
             y:=28;
      end;
      d.day:=y;
    end
    else
    begin
      case d.mounth of
        1,3,5,7,8,10,12: y:=31;
        4,6,9,11: y:=30;
        2: if p then
             y:=29
           else
             y:=28;
      end;
      d.day:=d.day-m;
      dec(m,x);
    end;
  end;
  write('Poluchiwshayasya data: ',d.day,'.',d.mounth,'.',d.year);
  readkey;
end.

Господа-программисты помагите, завтра утром сдавать