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

[-Sheremeta-]

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

[Bokul]

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

Она не будет работать, если ты ввидёшь строку длинной 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.