Зашифровать текст (не более 255 символов), поменяв порядок следования слов — Pascal(Паскаль)

uses crt;
var s,s1:string; 
    d:array[1..100] of string; 
    i,k:integer;
begin
clrscr;
writeln('First text:');readln(s);
k:=1;{первое слово}
for i:=1 to length(s) do{идем по строке}
if s[i]=' ' then k:=k+1 {если пробел, новое слово}
else d[k]:=d[k]+s[i];{иначе собираем слово из букв и в массив}
for i:=k downto 1 do{смотрим массив с конца}
s1:=s1+d[i]+' ';{и записываем в новую строку с конца}
writeln;
writeln('Revers Text:');
write(s1);
readln
end.