Написать программы для решения следующих задач

ответ: да, могут
Один пароход (допустим, "Обь") заходит в ответвление, затем "Восток" и "Петропавловск" сдают назад от ответвления, чтобы между ними и ответвлением поместились остальные 3 парохода. Эти 3 парохода занимают это пространство между ответвлением и двумя пароходами "Восток" и "Петропавловск". "Обь" выходит из ответвления, продолжает путь. Затем 3 парохода («Мир», «Енисей» и «Россия»), которые стояли между ответвлением и двумя пароходами ("Восток" и "Петропавловск") сдают назад до ответвления. В ответвление заходит "Восток" и т. д. Дальше всё аналогично предыдущим пунктам

Var s,ss,s1,s2:string;
p,p1,p2,max,min:integer;
begin
writeln('Введите строку:');
readln(s);
ss:=s+' ';
max:=0; min:=255;
p:=pos(' ',ss);
while p>0 do
 begin
 if p>max then begin max:=p; s1:=' '+copy(ss,1,p); end;
 if p<min then begin min:=p; s2:=' '+copy(ss,1,p); end;
 delete(ss,1,p);
 p:=pos(' ',ss);
 end;
s:=' '+s+' ';
p1:=pos(s1,s); 
p2:=pos(s2,s); 
if p1>p2
  then begin delete(s,p1,max+1); insert(s2,s,p1); delete(s,p2,min+1); insert(s1,s,p2); end
 else begin delete(s,p2,min+1); insert(s1,s,p2); delete(s,p1,max+1); insert(s2,s,p1); end;
s:=trim(s);
writeln(s);
end. 

Пример:
Введите строку:
поменяйте местами самое длинное и самое короткое слово
и местами самое длинное поменяйте самое короткое слово