Программа вычисления значения выражения с использованием подпрограмм. Что не так? - Pascal ABC

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

Для организации вычислений по заданной формуле составить программу с использованием функции или подпрограммы.Для этого в фомуле выявить вычисления,подобные по своей схеме,т.е. различающиеся только объектами операций t=(1/x+1/x²+1/x³+1/x⁴+1/x⁵+1/x⁶+p)/(2b-c-c²-c³-c⁴-c⁵-20).

                    Листинг программы
                
 
                        
                          
                    
Program ABC;
uses crt;
var p,b,c,x, t,r,z: real;
n:integer;
procedure k(var r:real;n:integer;x:real);
begin
for n:=1 to 6 do
r:=1/(exp(n)*ln(x));
end;
 procedure m(var z:real;n:integer);
begin
for n:=1 to 5 do
z:=exp(n)*ln(c);
end;
 begin
writeln('Введите x,p,b,c');
readln(x,p,b,c);
k(x,n,r);
m(c,n,z);
t:=r+p/2*b-z-20;
writeln(t:);
readln;
end.

Решение задачи: «Программа вычисления значения выражения с использованием подпрограмм. Что не так?»

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

procedure k(var y:real; x:real);
var n: integer;
begin
  y := 0;
  for n := 1 to 6 do y := y + 1 / (exp(n * ln(x)))
end;
 
procedure m(var y: real; x:real);
var n: integer;
begin
  y := 0;
  for n := 1 to 5 do y := y + exp(n * ln(x))
end;
 
var p, b, c, x, t, r, z: real;
begin
  writeln('Введите x, p, b, c');
  readln(x, p, b, c);
  k(r, x);
  m(z, c);
  t := (r + p) / (2 * b - z - 20);
  writeln('t = ', t);
  readln
end.

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

Код представляет собой программу на языке Pascal ABC, которая выполняет следующие действия:

Создает процедуры k и m, которые принимают два параметра типа real и не используют вложенные списки.
Объявляет переменные y, n, x, t, r, b, c, p и z типа real.
Задает начальные значения для переменной y в обоих процедурах.
Использует цикл for для вычисления значения выражения в процедуре k и присваивает результат переменной r.
Затем использует тот же цикл for для вычисления значения выражения в процедуре m и присваивает результат переменной z.
Вычисляет среднее значение t путем деления суммы r и z на разность суммы коэффициентов b и p и вычитания суммы значений x и z из суммы коэффициентов b и p.
Выводит значение t на экран.
Завершает программу, ожидая ввода от пользователя.