Нужно из слова 'строчка' сделать 3 других слова (копируя буквы из этого слова в другие переменные(через индексы букв )

program raf105;

var s,s1:string;

begin

s:= 'строчка';

s1:= s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,5,3);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,1,1) + copy(s,4,1) + copy(s,3,2) + copy(s,6,2);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,6,2) + copy(s,5,3);

writeln(s1);

s1:= '';

end.