Поиск суммы по формуле, паскаль.

[hicmoon]

Нужно посчитать сумму элементов второй строки по формуле:



И выходит что-то совсем неверное. Подскажите, как написать правильно.

s:=0;
for i:=1 to line do begin
for j:=1 to column do begin
a[i,j]:=exp(1-a[i,j])+10;
if i=2 then s:=s+a[i,j];
end;
writeln;
end;
write('Сумма во второй строке = ',s:0:2);
readln
end.

[Stilet]

s:=0;

for j:=1 to 4 do begin s:=s+exp(1-a[2,j])+10;

write('Сумма во второй строке = ',s:0:2);
readln
end.