Впрограмме паскаль. с строковых функций и процедур преобразуйте слово «русалки» в слово «красули».

Var s, s1:string;
begin
s:='русалки';
s1:=copy(s,6,1)+copy(s,1,1) + copy(s,4,1)+copy(s,3,1)+copy(s,2,1)+copy(s,5,1)+copy(s,7,1);
writeln(s1);
end.