Найти произведение первого и последнего элементов массива содержащего N элементов — Pascal(Паскаль)

uses crt;
var a:array[1..10] of integer;
i,p,n:integer;
begin
clrscr;
p:=1;
randomize;
write('n = ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
end;
for i:=1 to n do
begin
write(a[i]:3);
end;
for i:=1 to n do
begin
p:=a[1]*a[n];
end;
writeln;
writeln('P = ',p);
readln;
end.