Дан массив. все его элементы увеличить на число 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.