типизир и текст фаилы, целая курсовая вам на растерзание Опции

[Vd0]

1 Таблица: (типизированный фаил)
- ФИО;
- дата рождения;
- пол;
- дата вступления в клуб;
- вид услуги (несколько, но не более 3);
- вид скидки;
- наличие дисконтной карты (при наличии карты дополнительная скидка 5% на все услуги).

2 Таблица: (типизированный фаил)
- вид услуги;
- цена.

3 Таблица: (текстовый фаил)
- вид скидки;
- процент скидки.

Определить стоимость услуг для каждого клиента, общую стоимость услуг, оказанных фирмой по месяцам.


Дополнительные вопросы:
1. Какая самая популярная услуга у владельцев дисконтных карт?
2. Сделайте дополнительную скидку в 3% на все услуги женщинам перед 8 марта и мужчинам перед 23 февраля (за 10 дней).

Для каждого файла должна быть предусмотрена возможность
- загрузки файла (просмотр)
- добавление новой информации в файл
- удаление информации
- корректировка
- сохранение после изменений



буду рад помощи как сделать это всё. а в частности как сделать 3-й фаил текстовый и записывать в формате "
вид скидки1 процент скидки1
вид скидки2 процент скидки2
вид скидки3 процент скидки3
...
"

[Vd0]

реализую всю на делфи. но чота не хочет нормально записывать и считывать!

Код

discountname:string[20];
 percent:real;

// процедура чтения из текстового фаил в стринггрид1
if OpenDialog1.Execute then begin
 AssignFile(f3,OpenDialog1.Filename);
 StringGrid1.Rowcount:=2;
 i:=1;
 reset(f3);

 while not eof(f3) do
  begin
  ReadLN(f3,discountname,percent);
       StringGrid1.Cells[0,i]:=discountname;
       StringGrid1.Cells[1,i]:=floattostrf(percent,ffgeneral,2,0);
  i:=i+1;
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;// while
 closefile(f3);
 StringGrid1.RowCount:=StringGrid1.RowCount-1;

end;//if opendialog

//процедура сохраниени я в фаил из StringGrid1
if SaveDialog1.Execute then
begin
assignfile(f3,SaveDialog1.FileName);
rewrite(f3);

for i:=1 to StringGrid1.RowCount-1 do
 begin
  if (StringGrid1.Cells[0,i]='')or(StringGrid1.Cells[1,i]='') then
   begin
    showmessage('Åñòü ïóñòûå ïîëÿ!');
    exit;
   end;//if


  writeLN(f3,StringGrid1.Cells[0,i],StringGrid1.Cells[1,i]);
 end;//for
 closefile(f3);
 showmessage('Ôàéë ñîõðàí¸í');
 end