Массив от 1 до 10 в Паскале. Помогите написать, пожалуйста.

var a: array [1..10] of integer;

min,max,i: integer;

begin

   for i:= 1 to 10 do

   begin

       a[i]:= random(50)-25;

       write(a[i]:4);

   end;

end.