Переделать код добавив процедуры - Turbo Pascal

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

Нужно в код программы добавить процедуры

var 
  n: integer; 
  eps, X, P, S: real; 
begin 
 writeln('Здравствуйте! Данная программа пердназначена для нахождения суммы ряда');
 writeln('Введите X (X<1)'); READ(x);
while (x>=1) do
   begin
   writeln('Ошибка! Повоторрите ввод, X должен быть меньше 1'); READ(x);
   end;
writeln('Введите точность (eps)'); READ(eps);
while (eps<=0) do
   begin
   writeln('Ошибка! Повоторрите ввод, точность(eps) должна быть больше 0'); READ(eps);
   end;
  S := X; 
  P :=X; 
  n := 1; 
  repeat 
    inc(n); 
    P := - P*X; 
    S := S + P/n; 
  until Abs(P/n) < eps; 
  Writeln('s = ', S:5:5); 
  writeln('test: ln(x + 1) = ', ln(x + 1):5:5);
end.

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

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

uses crt;
procedure vvod(var x,eps:real);
begin
repeat
writeln('Введите X (X<1)');
readln(x);
until x<1;
repeat
writeln('Введите точность eps>0 eps=');
readln(eps);
until eps>0;
end;
procedure summa(x,eps:real);
var p,s:real;
    n:integer;
begin
s:=x;
p:=x;
n:=1;
repeat
inc(n);
p:=-p*x;
s:=s+p/n;
until abs(p/n)<eps;
writeln('s=',s:0:5);
writeln('test: ln(x + 1)=',ln(x + 1):0:5);
end;
 
var x,eps:real;
begin
clrscr;
writeln('Здравствуйте! Данная программа предназначена для нахождения суммы ряда');
vvod(x,eps);
summa(x,eps);
readln
end.

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

Объявление переменных x и eps.
Вывод приветствия и сообщение о назначении программы.
Ввод значений для x и eps с помощью процедуры vvod.
Вызов процедуры summa с передачей значений x и eps.
Ожидание ввода пользователя для завершения работы программы.