contoh kodingan record dengan procedure masuk dan laporan

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type t_nilai = record
               npm : string [15];
               nama : string [30];
               algo,mat,dw,rata : real ;
               end;
var
  nilai : array [1..20] of t_nilai ;
  i, n, m : integer ;
  pil : char ;

procedure masuk ;
 begin
   n := 0 ;
   repeat
     inc (n);  {n+1, dec = n-1}
     writeln ('Mengisi Nilai Mahasiswa ke : ', N);
     writeln ('================================');
     writeln;
     with nilai [n] do
       begin
         write ('NPM   :  ');readln (npm);
         write ('NAMA  :  ');readln (nama);
         writeln;
         writeln ('Nilai ');
         writeln ('=================================');
         write ('Algoritma  : ');readln (algo);
         write ('Matematika : ');readln (mat);
         write ('Desain Web : ');readln (dw);

         rata :=(algo+mat+dw)/3;
       end;
     writeln ;writeln;
     write ('Selesai Tekan [y]');readln (pil);
   until (pil='y') or (pil='Y');
 end;

procedure laporan;
 begin
   writeln ('Daftar Nilai Mahasiswa');
   writeln ('======================');
   writeln;
   writeln ('=================================================================');
   writeln ('No. |     NPM   |   Nama        | ALGO  | MAT  | DW | rata |');
   for I := 1 to n do
     begin
       with nilai [i] do
       begin
         writeln (' ',I:2,' | ',npm:15 , ' | ',nama:20,'algo',algo:1:1,' Mat ',mat:4:2,' DW ',dw:1:1,' rata ',rata:1:0);
       end;
     end;
     writeln ('==================================================================');
 end;

begin
  while m <>3 do
   begin
     writeln ('=========================');
     writeln ('1. Masukkan data');
     writeln ('2. Laporan');
     writeln ('3. Exit');
     write ('Masukkan Pilihan Anda ');readln (m);

     if m=1 then
      masuk
     else if m=2 then
      laporan
     else if m=3 then
      exit
     else writeln ('Pilihan Anda TIdak Ada');

   end;
end.