Напишите процедуру Sort (var s : string), которая сортирует символы в слове по убыванию — Pascal(Паскаль)

uses crt;
procedure Sort(var s:string);
var i,k,j:byte;
    x:char;
begin
for i:=1 to length(s)-1 do
for j:=i+1 to length(s) do
if s[i]<s[j] then
  begin
   x:=s[i];
   s[i]:=s[j];
   s[j]:=x;
  end;
write(s);
readln
end;
var str:string;
begin
clrscr;
write('Слово: ');
readln(str);
Sort(str);
end.