Рекурсия в Делфи 7

Вот я описал две функции (числитель и знаменатель )....как делить первую на функцию на вторую тоже описавши ее через функцию
Вот сам код:
procedure TForm1.Button1Click(Sender: TObject);
var n,i: integer;
s: real;
function Um(m: integer): real;
begin
if m=0 then result:=0
else if m=1 then result:=1
else result:=Un(m-1)+Un(m-2);
end;
Function Znam(n: integer): real;
begin
if n=1
then result:=1
else result:=sqrt(n+Znam(n-1));
end;

Должно выйти чтото типа этого:
Function Dil(n:integer):double;
begin
if n=1
then result:=1
else result:=Um(m)/(sqrt(n+Dil(n-1))); только я не понимаю как тут задавать "m"

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.