Используя операции и функции для строковых типов данных,написать программу,где из слова РАДОСТЬ получиться слово ССОРА.

program prg;
const
    data = 'РАДОСТЬ';
var
   str: string;
begin
   str := data[5]+data[5]+data[4]+copy(data,1,2);
   writeln(str);
end.

uses crt;
var
a,b:string; i:integer;
begin
clrscr;
a:='РАДОСТЬ';
for i:=1 to length(a) do
b:=a[5]+a[5]+a[4]+a[1]+a[2];
writeln(a);
write(b);
end.