Код в паскале! : вставить число 2007 в позицию р в одномерный массив из 18 элементов.

Program aliona;
const n=18;
var a:array[1..n] of integer;
p,i,l:integer;
begin
writeln('vvedite massiv=');
for i:= 1 to n do
readln(a[i]);
writeln ('vvedite p=');
readln(p);
l:=2007;
for i:=1 to n do
a[p]:=l;
writeln('novaia');
for i:= 1 to n do
writeln (a[ i ]);
readln;
end.