Дан массив A (20) заполнить его случайными целыми числами из [-10;20] вывести на экран найти минимальный элементы массива и сумму положительных чисел

var   a: array [1..20] of integer;   i, min, s: integer; begin   min:= 20;   s:= 0;   for i:= 1 to 20 do    begin     randomize;     a[i]:= random(30) - 10;     if a[i] < min then min:= a[i];     if a[i] > 0 then s:= s + a[i];   end;   writeln('Минимальный элемент: ', min);   writeln('Сумма положительных чисел: ', s); end.