Turbo Pascal даны действительные числа х,у найти минимальное из них

Var x, y: integer; begin readln(x, y); if x > y then writeln('число ', x, ' больше'); else writeln('число ', y, ' больше'); end.