Не знаю, правильно ли я понял тебя, но вот. Если не так то обязательно напиши!
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.
Лучше обратиться к специалисту с ноутом, скорее всего вирус. вряд-ли кто-то сможет тебе тут. надо чтобы мастер в живую глянул