Pascal - برنامه ای که لیست خرید و فروش کالا ها را در یک فایل ذخیره کند؟

سلام
من یه برنامه به زبان پاکسال می خوام اگه دوستان کمک کنن خیلی ممنون می شم.
یک برنامه که مثلا لیست خرید و فروش کالا های یک شرکت (فاکتور خرید و فاکتور های فروش) را در یک فایل ذخیره کند.
با تشکر

مژگان خانوم من براي دفترچه تلفن تكه كد هاش رو ميزارم خودتون بايد تعميمش بدين و برنامه مورد نظرتون رو درست كنيد.
اول ركورد مورد نظر رو ايجاد ميكني :
(قبل از begin )

کد:

---

type
  tel=record
  name:string[25];
  family:string[30];
  tel:string[20];
  email:string[70];
  address:string;
  end;

---

فايل مورد نظر رو به متغيير نسبت ميدي :

کد:

---

var f:file of tel

---

داخل begin اول چك ميكني اگر فايل وجود داشت كه توش اضافه ميكني ولي در غير اينصورت فايل رو ايجاد ميكني :

کد:

---

assign(f,'c:\tel.bat');
  {$i-}
  reset(f);
  {$i+}
  if ioresult<>0 then
  begin
  assign(f,'c:\tel.dat');
  rewrite(f);

---

به وسيله دستورات زير ميتوني اطلاعات رو از كاربر بگيري و توي فايل وارد كني :

کد:

---

with te do
  begin
write(' first name : ');readln(name);
write(' last name  : ');readln(family);
write(' phone      : ');readln(tel);
write(' email      : ');readln(email);
write(' address    : ');readln(address);
write(f,te);

---

براي خواندن يك ركورد از فايل هم مي تونين از كد زير استفاده كنين :

کد:

---

read(f,te);
  with te do
  begin
  writeln;
  writeln(' first name : ',name);
  writeln(' last name  : ',family);
  writeln(' phone      : ',tel);
  writeln(' email      : ',email);
  writeln(' address    : ',address);

---

بهتره اول قسمت كار با فايل توي پاسكال رو بخوني بعد از اين كد ها استفاده كني آخه بعضي جا ها نياز به دستورات ديگري هم داري.(من كليات و اصولش رو گفتم بهتره خودت برنامه رو بنويسي تا ياد بگيري)

دست شما درد نکنه