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

[Amro]

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

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

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

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

[Amro]

Всё!!! Вот окончательный вариант решения: (может кому пригодится!!)

Код

program lab7;
uses crt,dos;
type aa=array[1..12]of integer;
var q:char;
   a:aa;
   data:record
   month:string[7];
   day,year,months:word;
   end;
j:integer;
week:word;
m:integer;
begin
repeat
clrscr;
a[1]:=31;
a[2]:=29;
a[3]:=31;
a[4]:=30;
a[5]:=31;
a[6]:=30;
a[7]:=31;
a[8]:=31;
a[9]:=30;
a[10]:=31;
a[11]:=30;
a[12]:=31;
getdate(data.year,data.months,data.day,week);
writeln('Введите число М через, которое вы хотите узнать дату:');
read(m);
j:=m;
while j<>0 do begin
           if j>a[data.months]-data.day then begin
                                   inc(data.months);
                                   data.day:=1;
                                   j:=j-a[data.months]+data.day
                                   end

else begin data.day:=data.day+j; break;end;
           end;
writeln('Дата дня: ',data.day,' месяц  ',data.months);
end.

Спасибо всем помогающим!!!