Belajar meenguunakan file dan record (BPTT tugas no 2)

uses crt;
   type
   Edata = record
      nip            : string[10];
      nama        : string[15];
      instansi    : string [40];
      golongan  : string [6];
      jabatan     : string [25];
   end;
var
   f: text;
   pg : Edata ;
   jawaban : char;

begin
   clrscr;
   writeln('    PROGRAMS PEGAWAI');
   writeln('------------------------------------');
   writeln;
   assign(f,'c:\pascal\edy.txt');
   rewrite(f);
   repeat
    with pg do
    begin
         write('Masukan NIP           : ');readln(nip);writeln(f,nip);
         write('Masukan Nama        : ');readln(nama);writeln(f,nama);
         write('Masukan Instansi     : ');readln(instansi);writeln(f,instansi);
         write('Masukan Golongan  : ');readln(golongan);writeln(f,golongan);
         write('Masukan Jabatan     : ');readln(jabatan);writeln(f,jabatan);
    end;
    writeln(f,'--------------------------------------------------');
    writeln;
    write('Apa anda ingin menambah data [Y/T] : ');readln(jawaban);
   until (jawaban= 'T') or (jawaban='t');
   readln;
   close(f) ;
end.

Download dalam Extensi :
Pas download
Exe download