Даны две строки а=командир в= робот. используя стандартные строковые функции составить из сданных строк другие строки с= коробка д= мандарин

Var
a,b,c,d: string;
begin
a:='командир';
b:='робот';
c:=copy(a,1,2)+copy(b,1,3)+copy(a,1,1)+copy(a,4,1);
writeln (c);
d:= copy(a,3,4) +copy(a,4,1)+copy(b,1,1)+copy(a,7,1)+ copy(a,5,1);
writeln (d);
end.