contoh kodingan record dengan struktur

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
Tsiswa = record
          nim : string[8];
          nama : string[25];
          nilai : byte;
         end;
var
  s : Tsiswa ;
  ts,tl : integer ;

procedure input;
 begin
   write ('Masukkan tahun sekarang : ');readln (ts);
   writeln ('Isikan data anda dalam Form ini');
   with s do
   begin
   write (' Nim         : ');readln (nim);
   write (' Nama        : ');readln (nama);
   end;
   write (' Tahun Lahir : ');readln (tl);
 end;

function umur : integer ;
 begin
   umur := (ts-tl);
 end;

procedure output ;
 begin
   writeln ('Berikut ini informasi yg anda berikan');
   with s do
   begin
   writeln (' Nim   : ',nim);
   writeln (' Nama  : ',nama);
   end;
   writeln (' Umur  : ', umur, ' Tahun');
 end;

begin
  input;
  writeln;
  output;

  readln;
end.