Переделать программу, что бы была основная программа и процедуры или функции - Pascal

Формулировка задачи:

помогите, пожалуйста, переделать эту программу, что бы она была с процедурами и функциями:Найти первое число Фибоначчи, которое больше заданного натурального m

Program Fibonatti;
var
    M, f1, f2: integer;
begin
    write('vvedite M = '); readln(M);
    f1 := 0;
    f2 := 1;
    repeat
        f2 := f1 + f2;
        f1 := f2 - f1;
    until (f2>m);
    writeln('F = ', f2);
  readln;
end.

Решение задачи: «Переделать программу, что бы была основная программа и процедуры или функции»

Листинг программы

Program Fibonatti;
 
procedure fibonacci (x: integer; var b : integer);
var a: integer;
 begin
  a := 0;
  b := 1;
  repeat
   b := a + b;
   a := b - a;
  until (b>x);
 end;
 
var
M, f2: integer;
 begin
  write('vvedite M = '); readln(M);
  fibonacci(m,f2);
  writeln('F = ', f2);
  readln;
 end.

Объяснение кода листинга программы

В программе объявляются две переменные: M и f2, которые представляют собой целые числа.
Затем происходит чтение значения переменной M с помощью функции readln.
Далее вызывается процедура fibonacci с аргументом m (значение переменной M) и переменной f2, которая будет использоваться для хранения результата.
Внутри процедуры переменные a и b инициализируются значениями 0 и 1 соответственно.
Затем происходит цикл repeat, который выполняется до тех пор, пока значение переменной b не превысит значение переменной M.
Внутри цикла переменная b вычисляется как сумма переменных a и b, а переменная a вычисляется как разность переменных b и a.
После окончания цикла выводится значение переменной f2, которое является результатом вычисления последовательности Фибоначчи.
Наконец, программа завершается вызовом функции readln для чтения пользовательского ввода и вывода сообщения об окончании работы программы.