Определить материал с минимальной плотностью

uses crt;
 
const
  nmax = 30;
 
type
  TInfo = record
    M : real;
    V : real;
  end;
 
var
  Info : array [1..nmax] of TInfo;
  i, n, imin : integer;
  min : real;
 
begin
  Repeat
    Write('Количество тел (не более ', nmax, '): ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите данные о телах: ');
  for i := 1 to n do
    begin
      Write('Масса тела №', i, ': ');
      Readln(Info[i].M);
      Write('Объем тела №', i, ': ');
      Readln(Info[i].V);
    end;
  min := Info[1].M / Info[1].V;
  imin := 1;
  for i := 2 to n do
    if min > Info[i].M / Info[i].V then
      begin
        min := Info[i].M / Info[i].V;
        imin := i;
      end;
  Writeln('Минимальная плотность у тела №', imin, ' и она равна ', min:0:4, ' кг/м^3');
  Readln;
end.

var massa,ob:array[1..30] of real;
i,sh:integer;p,min:real;
begin
for i:=1 to 30 do  begin
writeln('Введите массу ',i,' предмета');
readln(massa[i]);
writeln('Введите объем ',i,' предмета');
readln(ob[i]);
p:=massa[i]/ob[i];
if i=2 then min:=massa[i-1]/ob[i-1];
if  p<min then begin min:=p;sh:=i;end;
end;
writeln ('Минимальная плотность ',min:3:3,' у ',sh,' предмета ');
readln
end.