Contoh Procedure Input dan Edit

program cb;
uses wincrt;

type
 data_mahasiswa = record
                Nim    : string[6];
        Nama     : string[25];
                jurusan : string[15];
                fakultas : string[15] ;
             alamat  : string[50];
                 hoby :string[10];
                end;
dtmahasiswa = array [1..10] of data_mahasiswa;
{var
mhs  : dtmahasiswa ; }


 procedure masukkan_data;
 var
 i,x : integer;
 dtmhs  : data_mahasiswa ;
 jawab : char;

 Begin
 repeat
 clrscr;
 with dtmhs do

 begin

   Write('---< masukkan data dari mahasiswa >--- ') ;
   writeln;
   writeln;
   Write('masukkan nim :'); readln(nim);
   Write('masukkan nama :'); readln(nama);
   Write('masukkan jurussan :'); readln(jurusan);
   Write('masukkan fakultas:'); readln(fakultas);
   Write('masukkan alamat:'); readln(alamat);
   Write('masukkan hoby :'); readln(hoby);
   Writeln;
   end;
   write('menambah data lagi [y/t]?');
     repeat
     jawab := readkey 
     until jawab in ['Y','y','T','t'];
     readln(jawab)
  until upcase(jawab)='T'  




end;



procedure menggantidata;
var
 i,x : integer;
 dtmhs  : data_mahasiswa ;
jawab    : char;
nim_cari : string[6];
ketemu  : boolean;        

begin
with dtmhs do
repeat
    clrscr;
    write('Nim dari data yang akan diganti :');
    readln(nim_cari);
        begin               

ketemu := false;
{while (not eof (file_pegawai) and (not ketemu) do
    begin
    read(file_pegawai, data_pegawai);}
    if dtmhs.nim = nim_cari then
        ketemu := true   
      end; 
if ketemu then
    begin
   
    writeln('--< data edit mahsiswa >-- ');
    writeln(' [1]. nama      :',nama);read(nama);
        writeln(' [2]. alamat    : ',alamat);read(alamat);
    writeln(' [3]. jurusan   :',jurusan);read(jurusan);
        writeln(' [4]. fakultas  :  ', fakultas);read(fakultas);
        writeln(' [5]. hoby      :',hoby);read(hoby);
   
   
      end
else
    begin
    write('data tersebut tidak ditemukan');
    end;
    write('Mau mengubah data lagi (y/t)?');
    repeat
        jawab := readkey
    until jawab in ['Y','y','T','t'];
    write(jawab);
until upcase(jawab)='T'
end;

begin
masukkan_data;
menggantidata;
end.