2.2 Из слова курсор путем замены символов получить слово танцор ( програмирование )

program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.