Найти минимальный элемент в массиве.Что неправильно?
var a:array [1..31] of integer;
day,i,n,min:integer;
begin
read(n);
for i:=1 to n do
read (a[i]);
min:=(a[1]);
day:=1;
for i:=2 to n do
begin
if(min begin
min:=a[i];
day:=1;
end;end;
write(day);
end.

87373747373873    1   22.04.2020 15:46    2