Пользователь вводит значение переменной x , а программа должна вычислить значение, той переменной которая получилась больше(то есть или только x или только y)

Program;
var x,y:integer;
Begin
read(x);
If x>y then 
y:=x
write(y);
else 
if x<y then
x:=y;
wrie(x);
End.