Паскаль. Перестановка символов.

[Versifikator]

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

[Stilet]

Попытки? Наработки?

[Versifikator]

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

Попытки? Наработки?

var
s:string;
i,n:byte;
c:char;
w,z,p:integer;
f:text;
a:array [1..225] of string;


procedure vvod;
begin
assign (f,'input3.txt');
  reset (f);
  readln (f,s);
  writeln (s);
end;




procedure find;
begin
z:=0;
p:=pos('.',s);
repeat
if p=1
then delete(s,p,1)
else begin
     z:=z+1;
     a[z]:=copy(s,1,p-1);
     delete(s,1,p);
     end;
p:=pos('.',s);
until p=0;
end;

procedure daw1;
begin
writeln ('nomer predlogenia?');
readln(w);
if (w<=z) and (w>=1)
then writeln(copy(a[w],1,225))

else begin
     writeln ('predlogenia s takim nomerom v tekste net');

     end;
end;

begin
vvod;
find;
daw1;
end.

[Stilet]

У-у-у. Неплохо.
Теперь можно описать функцию для перестановки слов

function revero(s:string):String;
var i,j,k:integer;
begin
 Result:='';
 s:=s+' ';
 i:=1; 
 k:=1;
 while i<=Length(s) do begin
  if s[i]=' ' then begin
   for j:=i-1 downto k do Result:=Result+s[j]; Result:=Result+s[i];
   k:=i+1;
  end;
  inc(i);
 end;
end;

Не проверял, но думаю сработает.
Попробуй ее примени примерно так:

write(revero(a[w]));

[Versifikator]

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

У-у-у. Неплохо.
Теперь можно описать функцию для перестановки слов

function revero(s:string):String;
var i,j,k:integer;
begin
 Result:='';
 s:=s+' ';
 i:=1; 
 k:=1;
 while i<=Length(s) do begin
  if s[i]=' ' then begin
   for j:=i-1 downto k do Result:=Result+s[j]; Result:=Result+s[i];
   k:=i+1;
  end;
  inc(i);
 end;
end;

Не проверял, но думаю сработает.
Попробуй ее примени примерно так:

write(revero(a[w]));

Спасибо, сейчас попробую)))