Составить программу в паскале упорядочивания последовательности 3 данных чисел a,b,c по возрастанию с использованием подпрограммы-процедуры упорядочивания — Pascal(Паскаль)

uses crt;
var a,b,c,max,min:integer;
 
procedure Sort;
begin
max:=a;
if (b>a) and (b>c) then
 max:=b;
if (c>a) and (c>b) then
 max:=c;
min:=a;
if (b<a) and (b<c) then
 min:=b;
if (c<b) and (c<a) then
 min:=c;
end;
 
begin
ClrScr;
Readln(a,b,c);
Sort;
Writeln(min,' ',a+b+c-max-min,' ',max);
Readln;
end.