Составить программу нахождения минимального числа из 2-х чисел

Var
x,y:integer;

begin
readln (x,y);
if (x lt;gt; y) then
if (xlt;y) then
writeln (Min = ,x)
else
writeln (Min = ,y);
end.