Может кто увидит недочет...(срочно)

[Sлавян]

Нужно отсортировать список по дате. Дата вводится в таком виде xx.xx.xxxx При одинаковых годах прога не пашет
Вот исходник:

PROGRAM _1;
TYPE POKYPKI=record
DATA:STRING[20];

END;
CONST N = 4;
VAR YYY,XXX:ARRAY [1..N] OF POKYPKI;
New:String;
I:INTEGER;
BEGIN
FOR i:=1 to N DO BEGIN
WRITELN('ВВЕДИТЕ Дату');
READLN(XXX[i].DATA);
end;
FOR i:=1 to N-1 DO
If copy(XXX[i].DATA, 7, 4)>copy(XXX[i+1].DATA, 7, 4) then begin
YYY[i]:=XXX[i];
XXX[i]:=XXX[i+1];
XXX[i+1]:=yyy[i]; end
else if copy(XXX[i].DATA, 4, 2)>copy(XXX[i+1].DATA, 4, 2) then begin
YYY[i]:=XXX[i];
XXX[i]:=XXX[i+1];
XXX[i+1]:=yyy[i]; end
else iF copy(XXX[i].DATA, 1, 2)>copy(XXX[i+1].DATA, 1, 2) then begin
YYY[i]:=XXX[i];
XXX[i]:=XXX[i+1];
XXX[i+1]:=yyy[i];
end;

WRITELN('СПИСОК');
FOR I:=1 TO N DO
WRITELN(XXX[I].DATA:10);
end.

[Stilet]

opy(XXX[i].DATA,...)>=copy(XXX[i+1].DATA,...)

[Sлавян]

Благодарен очень очень