Всё!!! Вот окончательный вариант решения: (может кому пригодится!!)
Код
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.
Спасибо всем помогающим!!!
Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь.
Закон программиста: Семь раз отрежь, ошибся, отмерь.