Вычислить сумму ряда - Turbo Pascal (34033)

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

Написал исходник скорее всего с ошибками не выводит сумму s.В чем может быть проблема?Программу надо сделать используя цикл while.

Program summa;
var
s,sl,x:real;
m,i:integer;
function fact (i:integer):integer;
begin
if 1<=i then fact:=1
else fact:= i*fact(i-1);
end;
begin
writeln('введите m: ');
readln(m);
s:=0;
i:=1;
x:=-0.8;
sl:=ln((x*x+1)/fact(i))/ln(10);
while i<m do 
s:=s+sl;
i:=i+1;
x:=-1+0.2*i;
sl:=ln((x*x+1)/fact(i))/ln(10);
writeln('сумма: ',s);
end.

Решение задачи: «Вычислить сумму ряда»

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

program summa;
 
var
  s, sl, x: real;
  m, i: integer;
 
function fact(i: integer): integer;
begin
  if i <= 1 then fact := 1
  else fact := i * fact(i - 1);
end;
 
begin
  writeln('ГўГўГҐГ¤ГЁГІГҐ m: ');
  readln(m);
  s := 0;
  i := 1;
  x := -0.8;
  sl := ln((x * x + 1) / fact(i)) / ln(10);
  while i < m do
  begin
    s := s + sl;
    i := i + 1;
    x := -1 + 0.2 * i;
    sl := ln((x * x + 1) / fact(i)) / ln(10);
  end;
  writeln('Г±ГіГ¬Г¬Г*: ', s);
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет переменные s, sl, x типа real и m, i типа integer.
Определяет функцию fact(i: integer), которая вычисляет факториал числа i.
Создает переменную s и присваивает ей значение 0.
Создает переменную i и присваивает ей начальное значение 1.
Создает переменную x и присваивает ей значение -0.8.
Вычисляет значение sl как логарифм от суммы x^i / fact(i) по основанию 10.
Запускает цикл while i < m do, где i - текущее значение переменной i, а m - заданное количество членов ряда (20 в данном случае).
Внутри цикла вычисляет значение x как -1 + 0.2 * i и обновляет значение sl, используя новое значение x и fact(i).
После завершения цикла выводит значение переменной s, которое является суммой ряда.
Конец программы.