Составить программу вырезки из слова "Моделирование" слова "мода", "лидер", "дом"

Срочно​

program raf105;

var s,s1:string;

begin

s:= 'Моделирование';

s:= lowercase(s);

s1:= s1 + copy(s,1,3) + copy(s,10,1);

writeln(s1);

s1:= '';

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

writeln(s1);

s1:= '';

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

writeln(s1);

s1:= '';

end.