Нужна помощь! Задание: Ввести элементы массива с общим запросом и вывести

Не знаю, верно ли я сообразил тебя, но вот. Если не так то непременно напиши!

program Massiv;

var

MyArray: array[0..9] of Integer; // Объявляем статический массив целых чисел длинной 10 частей (считаем от нуля).

i: integer;

begin

writeln('Введите 10 целых чисел');

for i := Low(MyArray) to High(MyArray) do

readln(MyArray[i]); //В цикле записываем значения в массив

for i :=  Low(MyArray) to High(MyArray) do

writeln(MyArray[i]); //В цикле выводим теснее записанные значения

readln; //Чтобы программка не закрылась сходу после вывода результата

end.