Помогите по программированию подправить код в паскаль

Помогите исправить ошибки в коде, буду очень благодарен за помощь)
ошибки : 1) ошибка в вычислении слагаемого.
2) функция не где не используется.
var
a, k: integer;
S, x, y: real;
ftxt: text;
t:string;
function toch(a, k: integer): integer;
var
S, x, y: real;
begin
a := 0;
S := 0;
k := 1;
end;

procedure OpenTextFile(var ftxt: text; t:string);
begin
assign(ftxt, t);
append(ftxt);
end;

begin
t:='z01.txt';
OpenTextFile(ftxt,t);
readln(x);
writeln(ftxt, 'При x = ', x);
while (a < 4) do
begin
y := 1 / (x * x * x) * (k * k);
S := S + y;
k := k + 1;
write(ftxt, y:0:8);
writeln(ftxt, ' - ', a:0);
if abs(y) < exp(ln(10) * (1 / 6))
then a := a + 1
else a := 0;
end;
writeln(ftxt, 'сумма вычислений с точностью до 10^(-6) равна', S:0:3);
readln;
writeln(ftxt);
close(ftxt);
end.