Дано 3 числа, расположить их в порядке возрастания(в паскале)

program zz1;

var a, b, c:integer; // задаем переменные целого типа

begin

write( введите 1-ое число );  // вводим с клавиатуры первое число

read(a);  

write( введите 2-ое число );  // вводим с клавиатуры второе число

read(b);

write( введите третье число );  // вводим с клавиатуры третье число

read(c);

if (a lt; b) and (b lt; c) then write(a, , b, , c);

if (a lt; c) and (c lt; b) then write(a, , c, , b);

if (b lt; a) and (a lt; c) then write(b, , a, , c);

if (b lt; c) and (c lt; a) then write(b, , c, , a);

if (c lt; b) and (b lt; a) then write(c, , b, , a);

if (c lt; a) and (a lt; b) then write(c, , a, , b);

end.