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

спасибо большое)

незачто)

Vari,z,min,max:integer;a:Array [1..10] of integer;Beginrandomize;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.