[Delphi] Сортировка букв в слове

[Necker]

Нужно видоизменить код чтоб он изменял порядок всех букв кроме первой и последней

	
	

			
				program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Pos1, Len : Integer;
  Ch : Char;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);

    Len := Length(S);
    Pos1 := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем начало слова.
      if (i = 1) or (S[i - 1] in D) then Pos1 := i;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        //Меняем местами первую и последнюю буквы слова.
        Ch := S[Pos1];
        S[Pos1] := S[i];
        S[i] := Ch;
      end;
    end;

    Writeln('Результат:');
    Writeln(S);

    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
			
		

[Serge_Bliznykov]

Сообщение от Necker

чтоб он изменял порядок всех букв кроме первой и последней

и как нужно изменять порядок букв?
Допустим, дано:
Молодой человек вышел на крыльцо.
что должно получится?

[Necker]

Рандомное изменение порядка букв кроме 1 и последней

[Aleksandr H.]

Вариант

{random (m - n + 1) + n }
if (i = Len) or (S[i + 1] in D) then begin
   for ii := Pos1+1 to I-1 do begin
      i1 := Random(i-pos1+1)+pos1+1
      Ch:= S[i1];
      S[i1] := S[ii];
      S[ii] := Ch;
   end;           
end;

[Necker]

Сообщение от Aleksandr H.

Вариант

{random (m - n + 1) + n }
if (i = Len) or (S[i + 1] in D) then begin
   for ii := Pos1+1 to I-1 do begin
      i1 := Random(i-pos1+1)+pos1+1
      Ch:= S[i1];
      S[i1] := S[ii];
      S[ii] := Ch;
   end;           
end;

Спасибо за помощь

[Black Fregat]

Сообщение от Serge_Bliznykov

и как нужно изменять порядок букв?

Так это известный прикол

По рзелульаттам илссеовадний одонго анлигйсокго унвиертисета, не иеемт занчнеия, в кокам пряокде рсапожолены бкувы в солве. Галвоне, чотбы преавя и пслоендяя бквуы блыи на мсете. Осатьлыне бкувы мгоут селдовтаь в плоонм бсепордяке, все-рвано ткест чтаитсея без побрелм. Пичрионй эгото ялвятеся то, что мы чиатем не кдаужю бкуву по отдльенотси, а все солво цликеом.

[Aleksandr H.]

for ii := Pos1+1 to i-1 do
          begin                             // перемешка букв
            st := Pos1+1;
            fn := i-1;
            //to get a random number between n and m, do this:
            //random (m - n + 1) + n
            i1 := Random(fn-st+1)+st;
            Ch:=S[i1];
            S[i1]:=S[ii];
            S[ii]:=Ch;
          end;

[Serge_Bliznykov]

Сообщение от Serge_Bliznykov

Молодой человек вышел на крыльцо.

Сообщение от Black Fregat

Так это известный прикол

Так?
Мдлооой чееолвк веышл на кцлрыьо.

особенно последнее слово доставляет
а такая фраза тоже не вызовет трудностей?
Так гооилвра в илюе 1805 гдоа иеавсзнтя Анна Пнввоала Шеерр, фиелнрйа и пеаиилннбржя итцаиемпрры Мриаи Фдрвноеооы

[digitalis]

Всего длонжо быть в меру, а если чресечур, то хан'а .