Форум » Програмиране и web-дизайн » Задача за написване на Паскал.

Едва ли някой ще седне да се занимава ,но все пак ако някой реши ето я задачата:Съставете програмна система за обслужване на търговската дейност на аптека,съсържаща сведения за лекарствата(до 1000),продавани в аптеката.За всяко лекарство трябва да се поддържа следната информация:
-уникално име(знаков низ до 40 знака)
-странични ефекти(знаков низ до 80 знака)
-налицхност в склада(цяло число)
-единична цена на лекарствово(положително число с до 2 цифри в дробната част).
1.Въведете и контролирайте цяло число N ,определящо броя на наличните лекарства в аптеката.След това въведете описанието на N-те налични лекарства,контролирайки уникалността на имената им.Въведените данни да се съхраняват във файл с име PHARMACY.dat.
2.Осигурете въвеждане на начална буква за лекарство,след което определете лекарството с най-висока стойност сред лекарствата,чието име започва с въведената начална буква.Отпечатайте неговото име,количество и единична цена.
Във файл да се съхраняват всички лекарства с въведена начална буква,подредени по намаляване на единичната цена.

Аз съм написал т.1 от зада4ата(малко по-надолу),а за втора нищо не ми идва на ъкъла.Точно затова пускам тази тема.
Ето т.1 от задачата:
const N=10;
type Medicine=record
                             Name:String[4.];
                             StrEf:String[80];
                              Nalichnost:Byte;
                             Prise:Integer;{ne sym siguren za tozi tip}
                            end;
        Pharm:File of Medicine;
procedure EnterMed(var F:Pharm);
var S:Medicine;I:Integer;
begin
Assign(f,'PHARMACY.dat');
Rewrite (F);
for I:=1 to N do begin
                            readln(S.Name);
                             readln(S.StrEf);
                           readln(S.Nalichnost);
                            readln(S.Prise);
                            write(f,s);
                             end;
close(f);
end;