Обратный порядок слов

[Necker]

Программа должна сортировать в случайном порядке буквы в слове кроме первой и последней, но у меня с выводом проблемы немного может кто- нибудь помочь разобраться?

	
	

			
				program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  var

  S : String;
Procedure Title;
Begin
Writeln('The program shuffles all the letters in the line except the first and last');
Writeln('Program by Torvald');
end;
Function Input: string;
begin
    Write('Set the string:');
    Readln(S);
end;

Function Mrts(S:String): string;
var
  ii,i1, i, Pos1, Len : Integer;
  Ch : Char;
begin
    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  //конец слова
        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;
    end;

    Writeln('Result:',S);
end;
Function RepeatProg: boolean;
var
  ans: char;
begin
  Writeln('Exit?(Y/N):');
  Readln(ans);
  if (ans = 'N') or (ans = 'n') then
    Result:= False
  else
    Result:=True;
end;
Begin
  repeat
  Title;
  Input;
  Mrts(S);
  until RepeatProg;
  Writeln('Press "Enter" for quit program');
  readln;
end.
			
		

Снимок экрана (350).png

[Aleksandr H.]

Так подбери в "перемешке" чтобы число і1 получалось в диапазоне от номера 2й буквы слова до номера предпоследней буквы слова

[Serge_Bliznykov]

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

Программа должна сортировать в случайном порядке буквы в слове кроме первой и последней, но у меня с выводом проблемы немного может кто- нибудь помочь разобраться?

чем Вас не устроила ваша тема http://www.programmersforum.ru/showthread.php?t=325362 ?!

[Necker]

АХХА, извините забыл про нее