PersonalCorpus 版 (精华区)

154516 06:04:42 5 Mar 2002
Bozhang,HIT,P.R.China 1067 Pascal Accepted 0.07 sec 90K


var
    s:array[0..500] of string;
    i,j,k,n,offset:integer;
    r,t,u:string;
begin
    readln(n);
    for i:=1 to n do begin
        readln(s[i]);s[i]:=s[i]+'\';
        for j:=1 to length(s[i]) do if s[i,j]='\' then s[i,j]:=chr(0);
    end;
    for i:=1 to n-1 do begin
        k:=i; for j:=i+1 to n do if s[j]<s[k] then k:=j;
        if k<>i then begin s[0]:=s[k]; s[k]:=s[i]; s[i]:=s[0] end;
    end;
    for i:=1 to n do
        for j:=1 to length(s[i]) do if s[i,j]=chr(0) then s[i,j]:='\';
    s[0]:='\';
    for i:=1 to n do begin
        u:=s[i];
        offset:=0; r:=''; t:='';
        while r=t do begin
            if length(s[i-1])<>1 then begin
                r:=copy(s[i-1],1,pos('\',s[i-1])-1);
                delete(s[i-1],1,pos('\',s[i-1]));
            end else r:='';
            t:=copy(s[i],1,pos('\',s[i])-1);
            delete(s[i],1,pos('\',s[i]));
            inc(offset);
        end;
        writeln('':offset-1,t);
        while length(s[i])<>0 do begin
            t:=copy(s[i],1,pos('\',s[i])-1);
            delete(s[i],1,pos('\',s[i]));
            inc(offset);
            writeln('':offset-1,t);
        end;
        s[i]:=u;
    end;
end.