Массив из 12 целых чисел вводят с клавиатуры. Найдите сумму частей

program project1;

var s: integer;

var d: array[1..12] of integer;

var i: integer;

begin

      for i:=1 to 12 do

        begin

                write('Введите число ');

                write(i);

                write('gt; ');

                readln(d[i]);

        end;

        for i:=1 to 12 do

        begin

                s:= s + d[i];

        end;

        writeln(s);

end.