Первую букву записать в конец по алгоритму на паскале

[Kati]

Дан алфавит {a,b,c,*},
Первую букву слова переставить в конец по алгоритму
1. поставить перед словом *
2. *aa->a*a
*bb->b*b
*cc->c*c
*ab->b*a
*ba->a*b
*ac->c*a
*ca->a*c
*bc->c*b
*bc->c*b

[RUSt88]

пиши на мыло, договоримся

[ViGAM]

{ Дан алфавит [a,b,c,*],
Первую букву слова переставить в конец по алгоритму
1. поставить перед словом *
2. *aa->a*a
*bb->b*b
*cc->c*c
*ab->b*a
*ba->a*b
*ac->c*a
*ca->a*c
*bc->c*b
*bc->c*b }
var s:array[1..4] of char = ('a','b','c','*');
 i,j:integer;
 sl:string;
begin
  for i := 1 to 3  do
    for j := 1 to 3  do begin
      sl:=s[i]+s[j];
      write(sl,'-->');
      sl:=s[4]+sl;
      write(sl,'-->');
      sl:=sl[length(sl)]+sl;
      delete(sl,length(sl),1);
      writeln(sl);
    end;
  readln;
end.