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

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

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