помогите найти ошибку в коде турбо паскаль

вот задание с 10 в -4 степени тосность.

код прог
"program Lab4;
const e=0.001;
var s,s1,p,a:real;
r,t:real;
i,j,k,fak:integer;
begin
s:=0;
for i:=1 to 6 do
begin
j:=1;
a:=(exp((0.1*i*j)*ln(10))/(1-i*i+5.2));
repeat
begin
fak:=1; for k:=1 to j do fak:=fak*k;
end;
r:=a;
a:=(exp((0.1*i*j)*ln(10))/(fak-i*i+5.2));
s:=s+a;
t:=a-r;
writeln(r:10:5);
j:=j+1;
until e>=abs(t);
p:=exp(0.4*ln(i))*s;
s1:=s1+p;
end;
writeln ('S=',s1:10:5);
readln;
end."

ошибка 205 в строчке s:=s+a;
Я знаю что это за ошибка, но не знаю как её исправить.