Permutar elementos

[Kingflare]

Olá pessoal, boa tarde! Galera, vocês poderiam, me dar um help na parte de lógica para eu resolver um exercício de pascal ? Seguinte, eu preciso entrar com um conjunto de valores, inicialmente separados por vírgulas, depois fazer com que os valores dentro dele permutem-se entre si, por exemplo, se eu digitar 1,2,3 a saída do programa deverá ser a seguinte:

123
213
231
132
312
321

Fiz o código, aqui mas a saída não está dando certo, alguém pode me dar uma ideia do que posso fazer? Sei que o erro está na lógica...mas, não consegui uma maneira..., desde  já, agradeço! Segue o código:

    pROGRAM LE;    uses crt;    VAR    trocou,j,I:INTEGER;    avanca,seq:string;    aux:string[1];    begin    writeln('Digite abaixo a sequencia para trocar');    read(seq);    for i:= 1 to length(seq) do    begin    if seq[i] <> ',' then    avanca:=avanca + seq[i]    end;    for i:=1 to length(avanca) do    begin    for j:=i+1 to length(avanca)-1 do    begin    aux[0]:=avanca[i];    avanca[i]:=avanca[j];    avanca[j]:=aux[0];    writeln(avanca);    end;    end;              readkey;    end.