Подправьте пожалуйста код [Pascal]

Question

Цель программы разворот слов в предложении, вроде ничего сложного, но вот тут и незадача: 
program Laba6; 
Uses Crt; 
Var s:array[1..20] of string; v,k,i,j,li:integer; tt,ss:string; pp,p:byte; 
Begin 
ClrScr; 
 writeln('Ваше предложение: '); 
 readln(ss); 
 j:=length(ss); 
 for i:=1 to length(ss) do 
 begin 
 pp:=pos(' ',ss); 
 tt:=copy(ss,1,pp-1); 
 for p:=1 to length(tt) do 
 s:=tt[p]+s; 
 delete(ss,1,pp); 
 if pp=0 then 
 begin 
 s:=ss; 
 delete(ss,1,length(ss)); 
 end; 
 li:=i; 
 if pp=0 then 
 break; 
 end; 
readkey; 
End. 
 
Проблема в том, что разворачиваются все слова кроме последнего, оно копируется в массив без изменений.

Не вариант, я удаляю пробелы в обработке.

Все сложилось, понял, спасибо! Вопрос закрыт!

Андрей · Accepted Answer

Просто перед тем, как обрабатывать строку, добавь к ней в конец один пробел, вот и всё)

writeln('Ваше предложение: '); 
readln(ss); 
ss:=ss+' ';