Даны три числа. вывести сначала наименьшее затем наибольшее из данных чисел. язык: паскаль

Var a,b,c,max,min:longint;
begin
read (a,b,c);
if ((a>b) and (a>c)) then max:=a else
if ((b>a) and (b>c)) then max:=b else
if ((c>b) and (c>a)) then max:=c;
if ((a<b) and (a<c)) then min:=a else
if ((b<a) and (b<c)) then min:=b else
if ((c<b) and (c<a)) then min:=c;
write (min,' ',max);
end.