написать функцию, сравнивающую две даты. функция должна возвращать (-1) если первая дата меньше второй, 0 - если первая и вторая даты одинаковы и 1 - если первая дата больше второй. паскаль. тема записи

Type date = record day: 1 ... 31; month: 1 ... 12; year: integer; end; var a: date : = (day: 8; month: 7; year: 2012) ; b: date : = (day: 6; month: 7; year: 2012) ; c:integer;

procedure OutDate (d: date) ; begin with d do writeln (day, '.', month, '.', year) ; end; begin if a. year > b. year then c:=1 else c:=-1; if a. year = b. year then if a. month > b. month then c:=1 else c:=-1; if a. year = b. year then if a. month = b. month then if a. day > b. day then c:=1 else c:=-1; if a. year = b. year then if a. month = b. month then if a. day = b. day then c:=0; OutDate (a) ; OutDate (b) ; writeln ('otwet:', c) ; end.