Задача за деньги Опции

[zol]

Помогите, пожалуйста, решить задачу за деньги. Оставляю свой email: zolevin@mail.ru
Создать не текстовый файл bank.dat, содержащий информацию о клиентах банка (фамилию, номер счета, сумму денег на счету). (Должна быть отдельная программа. Ее решила, прилагается.). Переписать в текстовый файл информацию о клиентах, упорядоченную в алфавитном порядке. Ввести номер счета и вывести на экран фамилию владельца данного счета. Вывести на экран фамилии клиентов сумма денег на счету которых превышает 100000.

Код

Program Bank;
Type Klient=Record
         FIO:String[30];
         Shet:String[20];
         Summa:real
End;
Var Fklient: File Of Klient;
K:Klient;
N,I: Byte;
Begin
    Assign(Fklient,'BANK.DAT'); Rewrite(Fklient);
    Write('Kolishestvo klientof banka?');
    ReadLn(N);
    For I:=1 To N Do
    Begin
         Write(I:1,'.  F.I.O.: '); readLn(K.FIO);
         Write('Nomer sheta: '); ReadLn(K.Shet);
         Write('Summa: '); ReadLn(K.Summa);
         Write(Fklient,K)
    End;
    WriteLn('Formirovanie file end');
End.