Написать программку, которая в одномерном массиве, данным вводом данных с клавиатуры

Программка написана на Паскале:

Program test;

var a:array [1..10] of integer;
i: integer;

Begin

for i:=1 to 10 do

begin
writeln(Введите число +i);
readln(a[i]);
end;

writeln();
writeln(Итог:);
writeln();

for i:=1 to 10 do

begin
writeln(Число +i+ = +a[i]);
end;

End.