Необходима помощь в доработке
 

Задача: Дан одномерный массив 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.

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

Можно даже поблагодарить.
Program massiv;
uses crt;
Const N=10;
var i:integer;
X:array[1..n] of real;
L:array[1..n] of real;
begin
clrscr;
for i:=1 to n do
begin
write('L[',i,']='); readln(L[i]);
end;
for i:=1 to n do
if i mod 2=0 then x[i]:=sqr(L[i]) else x[i]:=L[i];
writeln(' masiv L');
for i:=1 to n do
write(L[i]:6:2);
writeln; writeln(' masiv X');
for i:=1 to n do
write(X[i]:6:2); writeln;
end.

Например, так:

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
Write('vvedite znacenie',i,'-go elementa ');
readLn(L[i]);
end;
for i:=1 to n do
if (i mod 2<>1) then x[i]:=sqr(L[i]) else x[i]:=L[i];
WriteLn('Array L:');
for i:=1 to n do
Write(L[i]:7:2);
WriteLn;
WriteLn('Array X:');
for i:=1 to n do
Write(X[i]:7:2);
WriteLn;
ReadLn;
end.

Забавно. Обе программы, моя и ww01031977, практически идентичны. Ну надо же!

Она очень проста. Школьный курс. По-другому и нет смысла делать.

Большое спасибо!