gistfile1.txt

for i:=1 to (l-1) do
begin
for j:=1 to (l-1) do
begin
if (TAB[j+1].x<TAB[j].x) Or (TAB[j+1].x=TAB[j].x) And (TAB[j+1].y<TAB[j].y) Or (TAB[j+1].x=Tab[j].x) And (Tab[j+1].y=Tab[j].y) And (Tab[j+1].z<Tab[j].z) then
begin
t1:=Tab[j+1].x;
Tab[j+1].x:=Tab[j].x;
Tab[j].x:=t1;
t1:=Tab[j+1].y;
Tab[j+1].y:=Tab[j].y;
Tab[j].y:=t1;
t1:=Tab[j+1].z;
Tab[j+1].z:=Tab[j].z;
Tab[j].z:=t1;end;
end;
end;