viết chương trình nhập vào 2 số nguyên rồi in ra màn hình theo thứ tự tăng dần pascal

Program bt;

Uses Crt;

Var a,b,c:integer;

Begin

Clrscr;

Write('Nhap so thu nhat: ');Readln(a);

Write('Nhap so thu hai: ');Readln(b);

If a<b then write('Hai so sau khi sap xep la: ',a,' ',b) else write('Hai so sau khi sap xep la: ',b,' ',a);

Readln;

End. 

uses crt;
var x,y:longint;
begin
      clrscr;
      write('Nhap hai so: '); readln(x,y);
      if x>y then write('Day tang dan: ',y,' ',x)
      else if y>x then write('Day tang dan: ',x,' ',y)
      else write(x,'=',y,' nen khong sap xep day tang dan duoc');
      readln;
end.