Составить программу нахождения суммы элементов массива, состоящую из 10 чисел. Язык Pascal

Var m:array [1..10] of integer;I,s:integer;BeginS:=0;For i:=1 to 10 do Read(m[i]);For i:=1 to 10 doS:=s+m[i];Write(s);End.