Дан массив 20 целых, спектр от -15 до +20 найти мин

Program n1;
const n=20;
var a: array [1..n] of integer;
i,min,sum:integer;
begin
randomize;
sum:=0;
write('начальный массив:');
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
if a[i] mod 3=0 then sum:=sum+a[i];
end;
writeln;
min:=a[1];
for i:=1 to n do if mingt;a[i] then min:=a[i];
writeln('малый элемент:', min);
writeln('сумма кратных трем: ',sum);
end.