Заполнить вектор 10 случайными целыми числами. Определить сумму, произведение элементов, а так же максимальное и минимальное значение векторов — Pascal(Паскаль)

program PascalGuru;
 
var A: array[1..10] of integer;     {инициализация переменных}
    i,n,summa,pr,max,min:integer;
 
begin
for i:=1 to 10 do A[i]:=0+random(10);
 
writeln('Vot ishodnyi massiv: ');
for i:=1 to 10 do write(A[i]:8); {вывод массива на экран}
writeln;
writeln;
 
summa:=0;
pr:=1;
 
for i:=1 to 10 do
    begin
     summa:=summa+A[i];
     pr:=pr*A[i];
    end;
 
max:=A[1];
min:=A[1];
 
for i:=2 to 10 do
    begin
     if A[i]>max then max:=A[i];
     if A[i]<min then min:=A[i];
    end;
 
writeln('Summa: ',summa);
writeln('Proizvedenie: ',pr);
writeln('MAX: ',max);
writeln('MIN: ',min);
 
readln;
end.