Составьте программу, распечатывающую слова предложения в порядке, обратном алфавитному

uses crt;
const rzd=[',',';',':','!','?','.',' '];{ðàçäåëèòåëè ìîæíî äîáàâèòü, çàâèñèò îò òåêñòà}
var  s,x:string;
     k,i,j:integer;
     s1:array[1..100] of string;
begin
writeln('Ââåäèòå òåêñò');
read(s);
s:=s+','; {äîáàâèì çàïÿòóþ â êîíåö}
for i:=1 to length(s) do
if s[i] in rzd then s[i]:=',';{çàìåíèì ðàçäåëèòåëè íà çàïÿòûå}
while pos(',,',s)>0 do   {åñëè ïîäðÿä 2 çàïÿòûõ}
delete(s,pos(',,',s),1); {1 óäàëÿåì}
k:=0;{ðàçìåð ìàññèâà}
while pos(',',s)>0 do {ïîêà åñòü çàïÿòûå}
 begin
  k:=k+1; {ñ÷èòàåì}
  s1[k]:=copy(s,1,pos(',',s)-1);{êîïèðóåì ïåðâîå ñëîâî â ìàññèâ}
  delete(s,1,pos(',',s));{óäàëÿåì åãî}
 end;
for i:=1 to k-1 do
for j:=i+1 to k do
if s1[i]<s1[j] then
 begin
  x:=s1[i];
  s1[i]:=s1[j];
  s1[j]:=x
 end;
writeln('Ñëîâà â ïîðÿäêå, îáðàòíîì àëôàâèòíîìó:');
for i:=1 to k do
write(s1[i],' ');
end.

uses crt;
const rzd=[',',';',':','!','?','.',' '];{разделители можно добавить, зависит от текста}
      n=5;
var  s,s1:array[1..100] of string;
     x:string;
     i,j,k,p:integer;
begin
writeln('Введите текст из 5 строк');
for i:=1 to n do
read(s[i]);
writeln('Слова строк по алфавиту');
for i:=1 to n do
 begin
  s[i]:=s[i]+','; {добавим запятую в конец}
  for j:=1 to length(s[i]) do
  if s[i][j] in rzd then s[i][j]:=',';{заменим разделители на запятые}
  while pos(',,',s[i])>0 do   {если подряд 2 запятых}
  delete(s[i],pos(',,',s[i]),1); {1 удаляем}
  k:=0;{размер массива}
  while pos(',',s[i])>0 do {пока есть запятые}
   begin
    k:=k+1; {считаем}
    s1[k]:=copy(s[i],1,pos(',',s[i])-1);{копируем первое слово в массив}
    delete(s[i],1,pos(',',s[i]));{удаляем его}
   end;
  for j:=1 to k-1 do
  for p:=j+1 to k do
  if s1[j]>s1[p] then
   begin
    x:=s1[j];
    s1[j]:=s1[p];
    s1[p]:=x
   end;
  for j:=1 to k do
  write(s1[j],' ');
  writeln;
 end;
end.

for i:=1 to n do
readln(s[i]);