contoh koding record disertai procedure

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');

   write (' Nim         : ');readln (s.nim);
   write (' Nama        : ');readln (s.nama);
   write (' Tahun Lahir : ');readln (tl);
 end;

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

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

begin
  input;
  writeln;
  output;

  readln;
end.