Вводим с клавиатуры предложение с пробелами, которое должно поменяется местами начало с концом.

[Niro]

Вывести предложение в обратном порядке, так? Тогда

uses crt;
   var s1,s2: string;
       mas: array [1..50] of string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   n:=length(s1);
   for i:=n downto 1 do
   begin
      s2:=s2+copy(s1,i,1);
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.

Подходит?

[Stilet]

Niro

Запустил:

Vvedite stroky
mama mila super ramu
---------------------------------
umar repus alim amam

)))))))
Красавец. Преподаватели тоже посмеются.
(Умар репус алим амам - прям заклинание )

[Niro]

Каюсь. Так как сегодня я ужасно туплю, то лучше пойду я
А то напомагаю ещё

[Stilet]

то лучше пойду я

Далеко не уходи - Свежие мысли новых людей только на пользу обществу.

[XeruH]

Попробуйте так. Самому проверить негде.

uses crt;
   var s1,s2,s3: string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   s3:='';
   n:=length(s1);
   for i:=1 to n do
   begin
      if (s1[i]=' ') or (i=n) then
      begin 
        if Length(s3)=0 then Continue;
        if Length(s2)>0 then s3:=s3+' ';
        s2:=s3+s2;
        s3:='';
      end
      else
        s3:=s1[i];
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.

[Pashka1]

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

Попробуйте так. Самому проверить негде.

uses crt;
   var s1,s2,s3: string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   s3:='';
   n:=length(s1);
   for i:=1 to n do
   begin
      if (s1[i]=' ') or (i=n) then
      begin 
        if Length(s3)=0 then Continue;
        if Length(s2)>0 then s3:=s3+' ';
        s2:=s3+s2;
        s3:='';
      end
      else
        s3:=s1[i];
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.

вот что получилось
mama mila super ramu
----------------------
m r a a

[XeruH]

упс, извиняюсь =)

uses crt;
   var s1,s2,s3: string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   s3:='';
   n:=length(s1);
   for i:=1 to n do
   begin
      if (s1[i]=' ') or (i=n) then
      begin 
        if Length(s3)=0 then Continue;
        if Length(s2)>0 then s3:=s3+' ';
        s2:=s3+s2;
        s3:='';
      end
      else
        s3:=s3+s1[i];
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.

[Pashka1]

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

упс, извиняюсь =)

uses crt;
   var s1,s2,s3: string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   s3:='';
   n:=length(s1);
   for i:=1 to n do
   begin
      if (s1[i]=' ') or (i=n) then
      begin 
        if Length(s3)=0 then Continue;
        if Length(s2)>0 then s3:=s3+' ';
        s2:=s3+s2;
        s3:='';
      end
      else
        s3:=s3+s1[i];
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.

вот как
mama mila super ramu
---------------------
ram super mila mama

[XeruH]

Ну, конечно. Могли бы уж и сами эту пустяковую ошибочку исправить )

uses crt;
   var s1,s2,s3: string;
       n,i: byte;
BEGIN
   clrscr;
   writeln('Vvedite stroky');
   readln(s1);
   s3:='';
   n:=length(s1);
   for i:=1 to n do
   begin
      if s[i]<>' ' then s3:=s3+s1[i];
      if (s1[i]=' ') or (i=n) then
      begin 
        if Length(s3)=0 then Continue;
        if Length(s2)>0 then s3:=s3+' ';
        s2:=s3+s2;
        s3:='';
      end;
   end;
   writeln('---------------------------------');
   writeln(s2);
   readln;
END.