Даны действительные числа ( нужно в делфи)

Делается одним условием. Запроси ввод данных и после этого:
if x > y then
z := x - y;
else
z := x - x + 1

Еще следует учесть количество знаков после запятой. Поставь ограничение на ввод около 4-5 знаков, этого хватит.