Написать алгоритм расположения чисел n1 n2 n3 вводимых в программу по возрастанию

var max,min,buf,n1,n2,n3:integer;

begin

readln(n1);

readln(n2);

readln(n3);

if n1>n2 and n1>n3

then

begin

max:=n1;

if n2>n3

then 

begin

buf:=n2;

min:=n3;

end;

else 

begin

buf:=n3

end;

end;

else 

if n2>n1 and n2>n3 then

begin

max:=n2;

if n1>n3 

then

begin

buf:=n1;

min:=n3;

end;

else 

begin

buf:=n3;

end;

end;

else

begin

max:=n3;

if n1>n2 

then

begin

buf:=n1;

min:=n2;

end;

else

begin 

buf:=n2;

min:=n1;

end;

end;

end.