Определить стоимость самого дешевого блюда в ресторане - Pascal ABC

program pr;
uses crt;
type
  list = record 
    dish: string[50];
    weight: double;
    price: integer;
  end;
 
var
  menu: array  of list;
  i, n: integer;
  min, index: integer;
 
begin
  writeln('Составим меню');
  writeln('Сколько блюд вы хотите внести в меню?');
  readln(n);
  setlength(menu,n);
  for i := 0 to n-1 do
  begin
    writeln('Введите название блюда');
    readln(menu[i].dish);
    writeln('Введите вес блюда (кг)');
    readln(menu[i].weight);
    writeln('Введите цену блюда');
    readln(menu[i].price);
  end;
   clrscr;
  writeln('Меню ресторана "Дракон"');
  for i := 0 to n-1 do
  begin
    writeln(' " ', menu[i].dish, ' " ');
    writeln('Вес: ', menu[i].weight, ' кг.');
    writeln('Цена: ', menu[i].price, ' рублей.');
    writeln;
  end;
  min := menu[0].price;
  for i := 0 to n-1 do
    if menu[i].price < min then
    begin
      min := menu[i].price;
      index := i;
    end;
  writeln;
  writeln('Самое дешёвое блюдо: ', menu[index].dish, ' , цена: ', min, ' рублей.');
  
end.