Верно ли, что вес самого тяжелого человека группы превышает массу самого легкого более чем в 2 раза - Pascal

Uses CRT;
Const n=30; {задаешь число человек в группе, например, пусть будет 30}
Var Ves : array [1..n] of real; {массив, в котором хранятся веса}
     i : integer; max,min : real;
BEGIN
Clrscr;
for i:=1 to n do
 begin
  write('Vvedite ves ',i,' =');
  readln(Ves[i]);
 end;
max:=a[1];
min:=a[1];
for i:=2 to n do
 begin
  if Ves[i]>max then max:=Ves[i];
  ifVes[i]<min then min:=Ves[i];
 end;
if (max/min)>2 then writeln('verno') else writeln('neverno');
END.