Памогите сделать программу через программу Poscal ABC плиз срочно нужно !!! Увеличить Значения элементов массива на 1 (мне нужно полностью всю программу )

Program massiv;

var A:array [1..N] of real; N, i:integer;

begin

read(A[i]);

readln(N);

for i:=1 to N do

B[i]:=A[i]+1;

write(B[i]);

end.