Вам надо будет пробежаться по всем записям вначале чтобы выяснить какие записи минимальны:
вообщем
1.завести надо еще один тип запись (record)
с переменными : minim (мин. цена) и RecN номер записи
далее объявить массив arr [1..3] тип созданная запись.
2.пробежать по всем записям в файле (пусть переменная с-цена из файла).
то получим такое условие
Код:
if c<arr[1].minim then begin
arr[3].minim:=arr[2].minim;
arr[3].RecN:=arr[2].RecN;
arr[2].minim:=arr[1].minim;
arr[2].recN:=arr[1].RecN;
arr[1].minim:=c;
arr[1].RecN:=RecNo;(Текущий номер записи)
end;
По окончании цикла у вас будет 3 минимальных цены и 3 номера записи.
Примерно так, дальше шлифуйте