Посчитать сумму элементов массива, заполненного случайными числами, и произведение максимального и минимального элементов

Program n1;

Uses CRT;

Const n=10;

Var a: array[1 ... n] of integer;

i, sum, pr, max, min: integer;

begin

ClrScr;

Randomize;

for i:=1 to n do

begin

a[i]:=random (50) ;

write (a[i]:3) ;

sum:=sum+a[i];

If a[i]>max then max:=a[i];

end;

min:=max;

For i:=1 to n do

If min>a[i] then min:=a[i];

pr:=max*min;

writeln;

Writeln ('Summa vseh elementov=', sum,' Proizvedenie max i min = ', pr) ;

readln

end.