Something

program Marina;
const n=3;
Type
 date=record
  day:integer;
  month:integer;
  year:integer;
 end;

var dates:array[1..n] of date;
	i: integer;

procedure change(var p1:date;var p2:date);
var buf:date;
begin
	buf:=p1;
	p1:=p2;
	p2:=buf;
end;

procedure sortbyday();
var i,j: integer;
begin
	for i:=1 to n do
	for j:=1 to n-1 do
		if dates[j].day<dates[j+1].day then
		change(dates[j],dates[j+1]);
end;

procedure sortbymonth();
var i,j: integer;
begin
	for i:=1 to n do
	for j:=1 to n-1 do
		if dates[j].month<dates[j+1].month then
		change(dates[j],dates[j+1]);
end;

procedure sortbyyear();
var i,j: integer;
begin
	for i:=1 to n do
	for j:=1 to n-1 do
		if dates[j].year<dates[j+1].year then
		change(dates[j],dates[j+1]);
end;

begin
	writeln('input elements day/month/year');
	for i:=1 to n do
	begin
		read(dates[i].day);
		read(dates[i].month);
		read(dates[i].year);
	end;
	for i:=1 to n do
		writeln(dates[i].day,'  ',dates[i].month,'  ',dates[i].year);
	sortbyday;
	sortbymonth;
	sortbyyear;
		writeln();
		writeln();
	for i:=1 to n do
		writeln(dates[i].day,'  ',dates[i].month,'  ',dates[i].year);
end.