Pascal tömb elemek?

Sziasztok!

Lenne egy feladatom ami egy darabig el is fut rendesen, de van egy hiba amire nem tudok rájönni sehogyan mi lehet az!

A lényeg az lenne hogy egy 10 számból álló tömbnek kellene az összegét kiszámoltatni és kiíratni.

A probléma az lenne, hogy 10 szám helyett csak egy számot ír ki mint tömb, de az összegét kiírja a többi számjeggyel együtt.

program asd;

uses crt;

var

szamsor : array [1..10] of integer;

osszeg,i : integer;

begin

clrscr;

randomize;

begin

for i:= 1 to 10 do

szamsor[i]:=random(100);

write(' ',szamsor[i]);

end;

begin

writeln(' ');

for i:= 1 to 10 do

osszeg:=(osszeg+szamsor[i]);

write('osszeg ',osszeg);

end;

readln;

end.

Erre jutottam eddig. Megköszönném ha valaki elmagyarázná hogy hol a hiba!