Написать программу по блок-схеме (Метод простых итераций)

program IterationMethod;
 
function RecursFormula(X0, Xn: real): real;
begin
  RecursFormula := 1 / 2 * (Xn + X0 / Xn);
end;
 
function NumStndView(param: real): integer;
var
  i:integer;
begin
  i:=0;
  while param < 1 do
  begin
    param := param * 10;
    inc(i);
  end;
  NumStndView:=i;
end;
 
var
  x0, xn, accuracy: real;
 
begin
  Write('Введите число для извлечения приближенного значения квадратного корня: ');
  ReadLn(x0);
  Write('Введите необходимую точность, число меньше 1: ');
  ReadLn(accuracy);
  xn := x0;
  repeat
    xn := RecursFormula(x0, xn);
  until abs(RecursFormula(x0, xn) - xn) < accuracy;
  Write('Приближенное значение квадратного корня из', ' ', x0:2, ' = ', xn:NumStndView(accuracy):NumStndView(accuracy));
end.