Statemen with

Penggunaan Statemen Nama_record.Nama_field Seperti Contoh Sebelumnya Dapat Diringkas Menjadi

Contoh :

program contoh_record_menggunakan_statmen_with;
uses crt;
type
    data_pegawai = record
        kd_peg : string[5]; 
        nama : string[15]; 
        alamat : string[20]; 
        gaji : longint;
        end; 
var
    pegawai : data_pegawai; 
begin
    clrscr;
    with pegawai do
        begin
            write('Kode pegawai =');readln(kd_peg); 
            write('Nama pegawai =');readln(nama); 
            write('Alamat pegawai =');readln(alamat); 
            write('Gaji pegawai =');readln(gaji); 
            {cetak}
            writeln('Kode pegawai :',kd_peg); 
            writeln('Nama pegawai :',nama); 
            writeln('Alamat pegawai :',alamat); 
            writeln('Gaji pegawai :',gaji);
        end; 
    readln;
end.

Dengan Menggunakan Staremen With Maka Blok Statemen Berikutnya Setelah Statemen With Dapat Menggunakan Nama Field Tanpa Menyebut Kan Nama Recordnya Lagi !