Pernyataan WITH (Pascal)

Bentuk pernyataan with adalah sebagai berikut:

with nama_record do
     pernyataan

Pada bentuk ini, field-field yang terletak pada bagian pernyataan dapat disebutkan tanpa perlu menyertakan lagi nama record dan tanda titik. Untuk lebih jelasnya, perhatikan program dibawah ini:

uses wincrt;
type
    rec_tgl = record
                 hari: 1..31;
                 bulan: 1..12;
                 tahun: word;
              end;
    rec_alamat = record
                    jalan: string;
                    kota: string;
                 end;
    rec_pegawai = record
                     nama: string[30];
                     tgl_masuk: rec_tgl;
                     alamat: rec_alamat;
                  end;
var pegawai: rec_pegawai;
procedure input;
begin
     with pegawai do
     begin
          write ('nama pegawai : ');
          readln (nama);
          with tgl_masuk do
          begin
               writeln ('tanggal masuk : ');
               write ('tanggal : ');
               readln (tgl_masuk.hari);
               write ('bulan   : ');
               readln (tgl_masuk.bulan);
               write ('tahun   : ');
               readln (tgl_masuk.tahun);
          end;
          with alamat do
          begin
               writeln ('alamat  :');
               write ('jalan   : ');
               readln (jalan);
               write ('kota    : ');
               readln (kota);
          end;
     end;
end;
procedure cetak;
begin
     with pegawai do
     begin
          writeln ('Nama          : ',nama);
          writeln ('Tanggal Masuk : ',tgl_masuk.hari,'/',tgl_masuk.bulan,'/',tgl_masuk.tahun);
          writeln ('Alamat        : ',alamat.jalan,', ',alamat.kota);
     end;
end;
begin
     input;
     writeln;
     cetak;
end.

Sekian.