Помогите решить задачу Delphi 7

[oK1110]

42. Создайте программу нахождения суммы элементов одномерного массива

[Aleksandr H.]

for i := 1 to 15 do 
  begin
     b[i] := random(41)-20;
     s:=s+b[i];
  end;

[digitalis]

s := 0 ; инициализация - мать её

[newerow1989]

Ой!
А мы-то еще забыли записать! - тоже мать её

В начале:

var i,s:integer;
    b:array[1..15] of integer;
begin

В конце:

   Writeln(s);
   Readln;
end.

[digitalis]

Ну это он и сам, можбыть, додумался бы