Преобразовать дату в числовой формат. Условие и цель задачи: Пользователь вводит дату в формате ‘dd.mm.yyyy’, которая присваивается строчной переменной s. Необходимо преобразовать строку в запись d, имеющую три числовых поля – day, month, year

lazarus(delphi):type  d=record m1, d1, y1: integer;end;var s: string; d1: TDateTime;begins:=edit1.text; (read(s));d1:=strtoDate(s);DecodeDate(d1, d[y1], d[m1], d[d1]);end;