Viết chương trình nhập vào 2 số nguyên dương x và y, kiểm tra và đưa ra giá trị nhỏ nhất của 2 số đó?

uses crt;
var x,y: word;
begin
clrscr;
write ('Nhap x: '); readln (x);
write ('Nhap y: '); readln (y);
if x<y then writeln (x)
else writeln (y);
readln;
end.