Сразу вывести ВСЕ совпадающие года? Нет...For Year := CurrYear - 50 To CurrYear + 50 Do
{
Проверить, совпадает ли день недели определенной даты
с днем недели этого же числа в ТЕКУЩЕМ году
}
uses calenfun; { Тебе же дали ссылку на этот модуль }
const
curr_year = 2006;
var
birth, other: tdate;
birth_day: byte;
year: integer;
begin
with birth do begin
d := 4; m := 5; y := 1971;
end;
birth_day := dayofweek(birth, grigorian);
for year := curr_year - 50 to curr_year + 50 do begin
other := birth;
other.y := year;
if dayofweek(other, grigorian) = birth_day then writeln(year);
end;
end.
Только что проверил на своем дне рождения - все работает...
Нельзя ли все прогу сразу??? Буду очень признателен!!! 
