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

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.