Массив от 1 до 10 заполнить случайными числами и найти сумму максимум и минимум 1 до 15

Var
i,z,min,max:integer;
a:Array [1..10] of integer;
Begin
randomize;
z:=0;
min:=16;
max:=-1;
for i:=1 to 10 do begin
a[i]:=Random(15)+1; 
z:=z+a[i]; 
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to 10 do Write(a[i], ' ');
Writeln();
Writeln('Минимальное значение ',min,' Максимальное значение ',max,' Сумма ',z);
End.