Contoh program FILE dengan menggunakan pascal ..

Membuat File

program contoh;
Uses Crt;
Var
Berkas : Text;
Kode  : String[5];
Nama  : String[20];
Harga :Longint;
Jumlah: Longint;
Lagi,Jawab : Char;
Ada : Boolean;
Begin
Assign(Berkas,'BARANG.TXT');
  {$I-}
Reset(Berkas);
  {$I+}
Append(Berkas);
Lagi :='Y';
 While upcase(lagi)='Y' do
begin
Clrscr;
Write('kodebarang :');Readln(Kode);
Write('Nama        :');Readln(Nama);
Write('Harga       :');Readln(Harga);
Write('Jumlah      :');Readln(jumlah);
Writeln(Berkas,kode:5,nama:20,harga:10,jumlah:10);
Writeln;
Write(' Lagi Y/T : ');Readln(lagi);
End;
Close(berkas);
End.

SEMOGA BERMANFAAT YA  ...