Определение даты (записи) Опции

[Amro]

Люди подкиньте идейку!!!!
Вот условие программы:

Определить дату, которая наступит через m дней.

Таким образом из условия видно, что программа должна запрашивать месяц и дату, а также само число m... Но я не могу найти сам алгоритм решения этой задачи... а именно каким образом программа будет искать это число и месяц...

Саму прогу необходимо написать при помощи записи...

[trminator]

вот без записей... куда их вставить, непонятно.
Дату берет сегодняшнюю

Код

uses DOS;
const days: array[1..12] of byte=(31,29,31,30,31,30,31,31,30,31,30,31);
var plus, Year, Month, Day,week_nr : word;

begin
   GetDate(Year, Month, Day, week_nr);
   ReadLn(plus);
   while plus>days[month] do begin
       dec(plus, days[month]);
       inc(year,month+1 div 12);
       month:=(month+1) mod 12;
   end;

   inc(day, plus);
   if day > days[month] then begin
       day:=day mod days[month];
       inc(month)
   end;

   writeLn('Будет ',day,'.',month)
end.

Разве что вместо переменных year, month, day использовать запись date с теми же полями