Ввести два числа и вывести их в порядке возрастания. пример: введите два числа: 15 9 ответ: 9 15

Program z1;
var  a, b: integer;
begin
  writeln('Введите A:'); 
 readln(a);
  writeln('Введите B:');
  readln(b); 
 if a < b then
   begin 
  write(' ', a); 
   write(' ', b); 
 end; 
 if b < a then 
 begin   
 write(' ', b); 
   write(' ', a); 
 end;
end.