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

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

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.