Вывести отсортированную и перевернутую исходную строку

unit modul;
interface
type prc=procedure(var s:string);
procedure sort(var s:string);
procedure revr(var s:string);
implementation
{$F+}
procedure sort(var s:string);
var i,j:byte;
    c: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
  c:=s[i];
  s[i]:=s[j];
  s[j]:=c;
 end;
end;
procedure revr(var s:string);
var i:byte;
    c:char;
begin
for i:=1 to length(s) div 2 do
 begin
  c:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=c;
 end;
end;
{$F-}
end.

unit modul1;
interface
uses modul;
procedure obrb(var s:string;p1,p2:prc);
implementation
procedure obrb(var s:string;p1,p2:prc);
begin
p1(s);
p2(s);
end;
end.

uses crt,modul,modul1;
var s:string;
begin
clrscr;
writeln('Введите строку');
readln(s);
obrb(s,sort,revr);
write(s);
readln
end.