Question

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

Answer 1

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

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

Answer 2

А как ввод данных запросить

Answer 3

И как ограничения поставить