Дан массив kon1 из 40 чисел. значения чисел случайным образом формируются из диапозона от -10 до +40. все элементы умножить на последний элемент.записать получившиеся в kon2 и вывести на экран

Program massiv;
const N=40;
var i : integer;
kon2:array[1..N]of integer;
kon1:array[1..N]of integer;
begin
writeln('изначальный массив');
randomize;
for i:=1 to N do
kon1[i]:=random(51)-10;
for i:=1 to N do
write(kon1[i],' ');
writeln;
writeln('исходный массив');
for i:=1 to N do
begin
kon2[i]:=kon1[i]*kon1[N];
write(kon2[i],' ');
end;
readln;
end.

Диржи краб. Бут уже профи