Вычислить двойную сумму с помощью двумерного массива

uses crt;
var a:array[1..10,2..4] of real;
    m,n,i,j:integer;
    s,s1,e,t:real;
    f:text;
begin
clrscr;
e:=0.0001;
assign(f,'tabl.txt');
rewrite(f);
s:=0;
for i:=1 to 10 do
 begin
  j:=1;
  t:=1;
  s1:=2;
  while (i+j)*t>e do
   begin
    j:=j+1;
    t:=t/j;
    s1:=s1+(i*j)*t;
   end;
  a[i,2]:=(i+j)*t;
  a[i,3]:=s1;
  s:=s+i*i*s1;
  a[i,4]:=s;
 end;
for i:=1 to 131 do
write(f,'-');
writeln(f);
write(f,'|nomer elementa     |');
for i:=1 to 10 do
write(f,i:6,'    |');
writeln(f);
write(f,'|dostignyta tochnost|');
for i:=1 to 10 do
write(f,a[i,2]:10:5,'|');
writeln(f);
write(f,'|vnutrennaya summa  |');
for i:=1 to 10 do
write(f,a[i,3]:10:5,'|');
writeln(f);
write(f,'|vneshnaya summa    |');
for i:=1 to 10 do
write(f,a[i,4]:10:5,'|');
writeln(f);
for i:=1 to 131 do
write(f,'-');
close(f);
write('Суммы посчитаны и записаны в файл tabl.txt');
readln
end.