Дан массив. Все его элементы увеличить на число b. Помогите написать пограмму в паскале

Const N=10 //размер массива Type A=array[1..n]of real; Var I,B:integer; Begin For I=1 to n do Read(a[i]); //ввели массив Read(b); For I=1 to n do Begin A[i]:=a[i]+b; Write(a[i]); End End.