Задача на записи - Pascal ABC (13475)

Формулировка задачи:

Помогите решить пожалуйста: Составить программу, выводящую на экран меню ресторана "Дракон" (наименование блюда, вес, стоимость). Определить стоимость самого дешевого блюда. (В паскале). (Нужно составить программу выводящую на экран содержимое заранее созданного текстового файла с данными о блюдах, и выводящую ещё самое дешёвое блюдо из этого файла). Что- то по типу этого:

program Project2;
type
  list = record
    dish: string[50];
    weight: double;
    price: integer;
  end;
var
  f:text;
  menu: array[1..50]  of list;
  i, n: integer;
  min, index: integer;
  Begin
  assign(f, 'menu.txt');
  reset (f);
begin
  min := menu[0].price;
  for i := 0 to n-1 do
    if menu[i].price < min then
    begin
      min := menu[i].price;
      index := i;
      close (f);
    end;
  writeln;
  writeln('Samoe deshovoe bludo: ', menu[index].dish, ' , cena: ', min, ' rubley.');
  Readln;Readln;
 end;
end.

При этом изначально имеется файл с данными о блюдах с именем: menu

Решение задачи: «Задача на записи»

Листинг программы

program pr;
type
  list = record 
    dish: string[50];
    weight: double;
    price: integer;
  end;
 
var
f:text;
  menu: array [1..100]  of list;
  i, n: integer;
  min, index: integer;
 
begin
assign(f,'c:\dragon.txt');
rewrite(f);
  writeln('Составим меню');
  writeln('Сколько блюд вы хотите внести в меню?');
  readln(n);
  for i := 1 to n do
  begin
    writeln('Введите название блюда');
    readln(menu[i].dish);
    writeln(f,menu[i].dish);
    writeln('Введите вес блюда (кг)');
    readln(menu[i].weight);
    writeln(f,menu[i].weight);
    writeln('Введите цену блюда');
    readln(menu[i].price);
    writeln(f,menu[i].price);
   
  end;
   close(f);
   end.

Объяснение кода листинга программы

В данном коде создается программа на языке Pascal ABC. Переменные и их типы:

f: text - файл для записи
menu: array [1..100] of list - массив, содержащий 100 записей типа list
i, n: integer - переменные для цикла и количества блюд в меню
min, index: integer - переменные для поиска минимального значения веса блюда Код начинается с задания пути к файлу, который будет использоваться для записи. Затем происходит чтение вопроса пользователю о количестве блюд, которые он хочет внести в меню. Далее идет цикл, в котором пользователь вводит название блюда, его вес и цену. Все эти данные записываются в файл. После окончания цикла файл закрывается. В данном коде нет вложенных списков.