Задан одномерный массив датчиком случайных чисел состоящий из 10 элементов найти сумму первого и последнего элемента

Var  
   mas:array [1..10] of integer; 
   i:integer;
begin 
 randomize; 
 for i:=1 to 10 do mas[i]:=random(100);  
 writeln(mas[1]+mas[10]);
end.