Паскаль. Построить программу.

[rhenjq1112]

Помогите пожалуйста. Завтра уже сдавать (точнее уже сегодня). Буду очень благодарен.
Написать логическую функцию раньше(d1,d2), проверяющую, предшествует
ли дата d1 дате d2.
Type data=record
ch:1..31;
m:1..12;
year:integer;
end;
var t1,t2ata;
2. Написать функцию интервал(d, d1,d2), вычисляющую время d, прошедшее
от времени d1 до d2: d = d2 - d1 (считаем, что d2>d1). Результат в днях.
Type data=record
ch:1..31;
m:1..12;
year:integer;
end;
var d1, d2ata; d:integer;
3. Написать функцию, вычисляющую средний балл по физике.
Const N=25;
74
Type anketa=record
fio; string;
ocenki: record m,f,p:1..5; end;
end;
massiv=array [1..N] of anketa;
var gr:massiv;
4. Написать процедуру Одного_роста (S), которая печатает фамилии двух (любых)
девушек из списка S одного роста.
Const N=25;
Type anketa=record
fio, pol: packed array [1..N] of char;
rost:real;
end;
spisok=array [1..N] of anketa;
var S:spisok;

[digitalis]

По-моему, это во Фриланс. А срочный заказ - такса тройная.