Описание и вызов функции в коде на Паскаль(Delphi)

[adaptes]

пожалуйста ответьте на некоторые вопросы
1) где функция объявляется и где вызывается
2) где тут формальный и фактический параметры
3) где функция возвращает значения
если можно напишите конкретные куски программы отвечающие на эти вопросы

program laba5;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Math;

var x0,x1,e,c:real;
    iteraz:integer;

  function fun(x:real):real;
  begin
  fun:=sin(1/x)-2;
  end;
    begin
    SetConsoleOutputCP(1251);
    writeln('Решенить уравнение x-2+sin1/x');
    writeln('Отрезок приблеженных значений [1,2;2]'); //отрезок на котором находится корень уравнения
    write('Введите приближённое значение X='); //примерное значение корня
    readln(x1);
    writeln('');
    write('Tочность e='); //точность нахождения корня
    readln(e);
    iteraz:=0;
    c:=(1.2-2)/(fun(1.2)-fun(2));
      repeat // пока условие ложно
      iteraz:=iteraz+1;// количество итераций
      x0:=x1; //присвоим x0 значение x1
      x1:=x1-c*(fun(x1));
      until (abs(x1-x0)<=e);  // выход на печать когда истина
  writeln('Решение уравнения x-2+sin1/x:');
  writeln('Точное значение корня: 1,3749');
  writeln('Вычисленное значение корня: ',x1:6:5);
  writeln('Число итераций: ',iteraz);
  readln;
end.

[Baburek]

1) Объявляется:

function fun(x:real):real;
  begin
  fun:=sin(1/x)-2;
  end;

Вызывается:

c:=(1.2-2)/(fun(1.2)-fun(2));
...
x1:=x1-c*(fun(x1));

2) Формальный параметр смотри в скобках, где объявляется: x; фактический смотри где вызывается: 1.2, 2, x1 (у тебя их тут три)

3) Функция возвращает значение там где вызывается. Тип возвращаемых данных определяется здесь:

 function fun(x:real):real; //последний real

----
P.S. Если не понятно, то можно гугл спросить эти же вопросы. Он отвечает избыточно)