Функцию оформить процедурой (вычислить сумму)

program f2pr_sum;
{Решаем задачу по зпданию: [url]https://www.cyberforum.ru/free-pascal/thread1224324.html[/url]
 Пределать заданную функцию S в процедуру.
}
uses
  crt;
var
  n: integer;
  r: real;
 
  function S(m: integer): real;
  begin
    if m <> 1 then
      if (m mod 2) = 0 then
        s := s(m - 1) - (1 / m)
      else
        s := s(m - 1) + (1 / m)
    else
      s := 1;
  end;
//без рекурсии
procedure SS(m: integer; out r: real);
begin
  r:= 1.0;
  if m = 1 then exit;
  while m <> 1 do begin
    if (m mod 2) = 0 then
      r:=  r - 1/m
    else
      r:=  r + 1/m;
    Dec(m);
  end;
end;
//с рекурсией
procedure SSS(m: integer; out r: real);
var
  _r: real;
begin
  _r:= 0.0; r:= 0.0;
  if m <> 1 then
      if (m mod 2) = 0 then begin
        SSS(m-1, _r);
        r := _r - (1 / m)
      end else begin
        SSS(m-1, _r);
        r := _r + (1 / m)
      end
    else
      r := 1;
end;
 
begin
  clrscr;
  repeat
    Write('N=');
    readln(N);
  until n > 0;
  writeln('s=', s(n): 0: 5);
  SS(n, r);
  writeln('s=', r: 0: 5);
  SSS(n, r);
  writeln('s=', r: 0: 5);
  readln;
end.