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

Сначала разбиваешь строчку на слова и заносишь их в массив(Разбиение на слова. Все способы.), потом для каждого елемента массива проделаешь procedure inverse и распечатаешь массив.

procedure inverse(var s:string);
var buf:string;
    i:byte;
begin 
buf:='';
for i:=length(s) downto 1 do
         buf:=buf+s[i];
s:=buf;
end; 

Что то не виходит взял метод разбиения строки от Volvo тот что попроще пытаюсь совместить что то совсем не получается.Покажите как оно должно выглядеть в окончательном варианте.Заранее благодарен .

я бы на твоем месте использовал способ klem4'a -самый простой и ты поучаеш массив слов, то что
тебе и надо.

А может лучше ты покажешь, КАК именно пытаешься совместить?

uses CRT;
var I, J: integer;
    S, S1, S2: string;
begin
     ClrScr;
     write('S=');
     read(S);
     S:=S+' ';
     I:=1;
     while I<=length(S) do
           begin
                if S[I]=' ' then
                   begin
                        S1:=Copy(S, 1, I);
                        delete(S, 1, I);
                        for J:=length(S1) downto 1 do
                            S2:=S2+S1[J];
                        I:=1;
                        S2:=S2+' ';
                   end;
                I:=I+1;
           end;
     writeln(S2);
     readkey;
end.

Выделяешь слово, а потом

n := length(s);
for i := 1 to n div 2 do begin
  temp := s[i];
  s[i] := s[n - i + 1];
  s[n - i + 1] := temp;
end;
// где s - слово

обычная инверсия ...


Если не получается разбить строку на слова, смотри тут : Разбиение строки на слова, все способы

в посте #6 рабочая программа

Нет... Она модифицирует строку - добавляет разделитель, который не просили добавлять в условии. Так что рабочей программа не признается. Любой преподаватель сразу снизит оценку (я уж не говорю о работодателе...)

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

Она не будет работать, если ты ввидёшь строку длинной 255 символов.

Вот мой вариант:

type
    main=array[1..40] of string[50];

procedure take_words(s:string; var mas:main; var n:integer);
var i:byte;
begin
n:=1;
for i:=1 to length(s) do
    if (s[i]=' ') and (i<>length(s)) then
       inc(n)
    else
        mas[n]:=mas[n]+s[i];
end;

procedure inverse(var s:string);
var buf:string;
    i:byte;
begin
buf:='';
for i:=length(s) downto 1 do
         buf:=buf+s[i];
s:=buf;
end;

var s:string; mas:main; n,i:integer;
begin
writeln('Enter string');
readln(s);
take_words(s,mas,n);
for i:=1 to n do
    begin
         inverse(mas[i]);
         write(mas[i],' ');
    end;
readln;
end.

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

Гость, твое бессмысленное сообщение и последовавший за ним флуд удален, еще раз повториться, будешь забанен по IP.