Сформировать массив в размерности 1-50 с генератора случайных чисел. 1) программа подсчетов суммы элементов массива 2) -//- ; найти минимум в массиве. от 30 до 50

Var
a: array [1..50] of integer;
i,n,min:integer;
Begin
randomize;
for i:=1 to 50 do
a[i]:=random(100);
for i:=1 to 50 do
write(a[i],' ');
for i:=1 to 50 do
n:=n+a[i];
min:=a[1];f
or i:=1 to 50 do
if min>a[i] then min:=a[i];
writeln;
writeln('sum ',n);
writeln('min ',min);
End.