如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中

如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中
如何输入三个整数,将最大值放入MAX中,最小值放入MIN中
用于PASCAL中

如何输入三个整数,将最大值放入MAX中,最小值放入MIN中用于PASCAL中
下面是源程序：
program ssy;
var
i,j,max,min,t:integer;
a:array[1..3] of integer;
begin
read(a[1],a[2],a[3]);//读入三个数存在数组a里
{将数组a中的元素从大到小排序}
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]