Зашифрованая записка в Паскале:(

[Veselyn]

Помогите решыть:
В записке слова зашифрованы - каждое из них записано наоборот. Расшифровать сообщение.
Опоздал на пару, злобный препод непустил и теперь немогу понять как это сделать

[Sazary]

Если правильно понял, то так..

uses crt;
const mn = [' ','.',',',';','!']; { разделители слов }
var
s,s2,wrd : string;
i,len,k : integer;
begin
clrscr;
writeln('Enter string:');
readln(s);
i := 1;
len := length(s);
s2 := '';
while i<=len do      { проходим по всем символам строки }
  begin
  while (s[i] in mn) and (i<=len) do     { пропускаем всякие точки и пробелы... }
    begin
    s2 := s2 + s[i];       { ...но записываем их в конечную строку }
    inc(i);
    end;
  wrd := '';          { здесь будет текущее слово }
  while (not (s[i] in mn)) and (i<=len) do        { читаем слово }
    begin
    wrd := wrd + s[i];               { и пишем его в буфер }
    inc(i);
    end;
  for k:=length(wrd) downto 1 do    { переписываем буфер посимвольно в конечную строку с конца слова }
    s2 := s2 + wrd[k];
  s2 := s2 + s[i];        { добавляем знак после слова }
  inc(i);
  end;
writeln(s2);
readln;
end.

Пример ввода:

Enter string:
лотс акшудоп пмок!
стол подушка комп!

[Veselyn]

Спасибо работает+ Буду розбиратся в том что там написано.