Сообщение от kill4itski

Задача: Дан одномерный массив L[10], элементы которого вводятся с клавиатуры. В данном массиве значение каждого элеиента, имеющего чётный порядковый номер, возвести в квадрат. На экран вывести исходный и изменённый массив.

Вот, что я смог сделать:
Program massiv
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
for i:=1 to n do
begin
writeln('vvedite znacenie',i,'-go elementa');
read(L[i]);
begin
if (i mod 2<>1) then x[i]:=sqr(L[i]) else x[i]:=L[i];
writeln('X[',I,']=',X[i]:6:2);
end;
end;
end.

Мне нужно ещё, чтобы выводился исходный массив, ведь тут выводится только изменённый. Пару варинантов пробовал - не получилось. Я в паскале совсем начинающий и программу делал не сам, хотя дорабатывал её именно я. Но не до конца. Помогите, пожалуйста