Перевернуть слова предложения (записать буквы в обратном порядке) - PascalABC.NET

program zad1;
Const mn = [' ','.',',',';','!']; //Знаки препинания(Разделение слов).
var
 s,s2,wrd:string;
 i,len,k:integer;
 begin
   writeln('Введите строку:');
   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);
end.