Известен вес каждого человека из группы.Верно ли что вес самого тяжелого из них превышает массу самого легкого более чем в 2 раза — Pascal(Паскаль)

uses crt;
const
n = 10;
var
max, min : integer;
i : integer;
m : array[1..n] of integer;
begin
clrscr;
writeln('vvedite ves kazhdogo studenta');
for i := 1 to n do
readln(m[i]);
max := m[1];
for i := 2 to n do
if max<m[i] then
max:=m[i];
writeln('ves samogo tyazhologo - ',max);
min := m[1];
for i := 2 to n do
if min>m[i] then
min := m[i];
writeln('ves samogo legkogo - ',min);
if (max div min > 2) then
writeln('ves samogo tyazhologo previshaet ves samogo legkogo bolee, chem v 2 raza')
else writeln('ves samogo tyazhologo ne previshaet ves samogo legkogo bolee, chem v 2 raz');
readln;
end.