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

type
week_day=(Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday);
month=(January,February,March,April,May,June,July,August,September,
        October,November,December);
year=1..3000;
dat=1..31;
attr_of_day=record
            w_d:week_day;
            d:dat;
            m:month;
            y:year;
           end;
var
 day1,day2:attr_of_day;
 k:integer;
 prn_week_day1, prn_week_day2:string;
 prn_month1, prn_month2:string;
function pred_month(m:month):month;
begin
 if m=January then pred_month:=December else pred_month:=pred(m);
end;
function pred_week_day(w:week_day):week_day;
begin
 if w=Monday then pred_week_day:=Sunday else pred_week_day:=pred(w);
end;
procedure pred_dat(var t:attr_of_day); {Процедура уменьшения даты на 1 день}
begin 
 if t.d=1 then begin
  t.m:=pred_month(t.m);
  if t.m = December then begin t.y:=t.y-1;
  case t.m of
   January,March,May,July,August,October,December:t.d:=31;
   April,June,September,November:t.d:=30;
   February: if (t.y mod 4)=0 then t.d:=29 else t.d:=28
  end;
  end
 else t.d:=t.d-1;
 end;
 t.w_d:=pred_week_day(t.w_d);
 end;
begin
 k:=0;
 writeln('Ввод первой даты');
 writeln('Введите число:');
 readln(day1.d);
 writeln('Введите название месяца на английском языке (Например, September):');
 readln(prn_month1);
 writeln('Введите год');
 readln(day1.y);
 writeln('Введите день недели');
 readln(prn_week_day1);
 writeln('Ввод второй даты');
 writeln('Введите число:');
 readln(day2.d);
 writeln('Введите название месяца на английском языке (Например, September):');
 readln(prn_month2);
 writeln('Введите год');
 readln(day2.y);
 writeln('Введите день недели');
 readln(prn_week_day2);
 case prn_week_day1 of
  'Monday': day1.w_d:=Monday;
  'Tuesday': day1.w_d:=Tuesday;
  'Wednesday': day1.w_d:=Wednesday;
  'Thursday': day1.w_d:= Thursday;
  'Friday': day1.w_d:= Friday;
  'Saturday': day1.w_d:= Saturday;
  'Sunday': day1.w_d:= Sunday;
 end;
 case prn_week_day2 of
  'Monday': day2.w_d:=Monday;
  'Tuesday': day2.w_d:=Tuesday;
  'Wednesday': day2.w_d:=Wednesday;
  'Thursday': day2.w_d:= Thursday;
  'Friday': day2.w_d:= Friday;
  'Saturday': day2.w_d:= Saturday;
  'Sunday': day2.w_d:= Sunday;
 end;
 case prn_month1 of
  'January': day1.m:=January;
  'February': day1.m:=February;
  'March': day1.m:=March;
  'April': day1.m:=April;
  'May': day1.m:=May;
  'June': day1.m:=June;
  'July': day1.m:=July;
  'August': day1.m:=August;
  'September': day1.m:=September;
  'October': day1.m:=October;
  'November': day1.m:=November;
  'December': day1.m:=December;
 end;
 case prn_month2 of
  'January': day2.m:=January;
  'February': day2.m:=February;
  'March': day2.m:=March;
  'April': day2.m:=April;
  'May': day2.m:=May;
  'June': day2.m:=June;
  'July': day2.m:=July;
  'August': day2.m:=August;
  'September': day2.m:=September;
  'October': day2.m:=October;
  'November': day2.m:=November;
  'December': day2.m:=December;
 end;
 if ((day1.d > day2.d) or (day1.y > day2.y) or (day1.w_d > day2.w_d) or (day1.m > day2.m)) then {Сравниваем, какая из дат более поздняя}
  repeat
   pred_dat(day1);
   k:=k+1;
  until ((day1.d = day2.d) and (day1.y = day2.y) and (day1.w_d = day2.w_d) and (day1.m = day2.m))
 else
  repeat
   pred_dat(day2);
   k:=k+1;
  until ((day2.d = day1.d) and (day2.y = day1.y) and (day2.w_d = day1.w_d) and (day2.m = day1.m));
 writeln('Количество дней между двумя заданными датами составило: ',k);
end.

begin
  var(день,месяц,год):=ReadLnInteger3('с даты (день месяц год) :');
  var датаНач:=New System.DateTime(год,месяц,день);
  (день,месяц,год):=ReadLnInteger3('по дату (день месяц год) :');
  var датаКон:=New System.DateTime(год,месяц,день);
  (датаКон-датаНач).Days.Println;
end.

var русский:=System.Globalization.CultureInfo.GetCultureInfo('ru-RU');
function деньНедели(дата:System.DateTime):=русский.DateTimeFormat.GetDayName(дата.DayOfWeek);
begin
  var сегодня := System.DateTime.Now;
  $'сегодня {сегодня:dd.MM.yyyy} г. {деньНедели(сегодня)}'.Println;
  var дата := System.DateTime.Parse(ReadlnString('Введите дату:'),русский);
  $'введённая дата {дата:dd.MM.yyyy} г. {деньНедели(дата)}'.Println;
  $'между датами дней {abs((сегодня-дата).Days)}'.Println;
end.

  if t.d = 1 then begin