Дан массив из N частей.вывести в строку все элементы через точку

program zz1;
const n=3; //задаем количество частей в массиве
var mas:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
mas[i]:=random(21)-10; //вводим числа в массив рандомно от -10 до 10
for i:=1 to n do
write(mas[i],;); //выводим числа из массива на экран
writeln; //переходим на новейшую строчку для вывода

k:= mas[1]+mas[n]; //получаем сумму первого и последнего частей
write(сумма первого и заключительного частей массива=,k); //выводим ответ
end.