[Pascal]Sumowanie kasztanów

[wozszym]

Mam zrobić program który wczytuje: liczbę dzieci, potem liczbę dni, ile dane dziecko zbierało i ilość kasztanów zebranych w poszczególnych dniach i dla każdego dziecka wypisuje sumę zebranych przezeń kasztanów. Męczę się z tym długo, ale nie chce wyjść... Poniżej to co napisałem (nie wiem czemu nie działa)

Kod: Zaznacz cały

program kasztany;
var tab: array[1..2000] of Longint;
i,d,n,a,k,s:Longint;

begin
 Read(d);
  for i:=1 to d do
  begin
   k:=0;
   Read(n);
   for i:=1 to n do
    begin
    Read(a);
    s:=a;
    k:=k+s;
    end;
   tab[i]:=k;
  end;

 for i:=1 to d do
 Writeln(tab[i]);

end.

[gryxon]

Kod: Zaznacz cały

program kasztany;
var tab: array[1..2000] of Longint;
i,j,d,n,a,k:Longint;
 
begin
 Read(d);
  for i:=1 to d do
  begin
   k:=0;
   Read(n);
   for j:=1 to n do
    begin
    Read(a);
    k:=k+a;
    end;
   tab[i]:=k;
  end;
 
 for i:=1 to d do
 Writeln(tab[i]);
 
end.

Miałeś wspólną zmienną liczącą dla pętli zewnętrznej i wewnętrznej. Nie testowałem za dużo ale powinno działać.