Помогите с перестаовкой букв в обратном порядке! Опции

[-Sheremeta-]

Нужно написать прогу которая б переставляла букви каждого слова предложения в обратном порядке.Между словами находится один пропуск.

[volvo]

какая разница, главное чтоб работала

Это ты будешь объяснять кому-нибудь другому, ясно? А здесь, если уж взялся постить что-то то будь добр СНАЧАЛА прочесть пункт №7 Правил в рамочке, и выполнять его.

Когда ТЕБЕ нужна будет помощь, тебе почему-то (интересно, почему?) нужно будет ИДЕАЛЬНОЕ выполнение условий. Так вот и относись к другим так же.

Bokul, можно проще:

var
  ch: char;
  s: string;
  start, finish, i: integer;

begin
  write('s = '); readln(s);
  start := 1;
  while start <= length(s) do begin

    while (start <= length(s)) and (s[start] = ' ') do inc(start);
    finish := start;
    while (finish <= length(s)) and (s[finish] <> ' ') do inc(finish);

    for i := 1 to (finish - start) div 2 do begin
      ch := s[start + i - 1];
      s[start + i - 1] := s[finish - i];
      s[finish - i] := ch;
    end;
    start := finish;

  end;
  writeln(s);
end.