Array dan Record dalam Bahasa Pascal

1. Array 
     Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman.

2. Record

    Record adalah sebuah tipe data yang mengumpulkan beberapa item data di mana masing-masing tipe data dari item data ini berbeda-beda. Masing-masing item data ini bisa disebut dengan field.

Contoh Program Matrik 2 Dimensi dan Record
 Program Biodata_Mahasiswa;
 uses crt;
 Type Rec  = Record
      Nama : String[10];
      NIM  : String[10];
      Umur : Longint;
 end;
 var Data  : array[1..50] of Rec;
     n,i   : integer;
     Pilih : char;

 Procedure Input;
 Begin
  clrscr;
  n:=0;
  repeat
  clrscr;
  inc(n);
  writeln(' __________________________');
  writeln('|      BIODATA MAHASISWA     |');
  writeln('|__________________________|');
  writeln('| Data ke-',n,'                            |');
  writeln('|__________________________|');
  with Data[n] do
  begin
  writeln(' __________________________');
  writeln('| Nama :                                        |');
  writeln('| NIM  :                                         |');
  writeln('| Umur :     Tahun                           |');
  writeln('|__________________________|');
  gotoxy(10,7);readln(Nama);
  gotoxy(10,8);readln(NIM);
  gotoxy(10,9);readln(Umur);
  end;
  writeln;
  write('Input Data Lagi? [Y/N] : ');readln(Pilih);
  Until ((Pilih='n') or (Pilih='N'));
 end;

 Procedure Kolom;
 Begin
 writeln('|                                              |                    |              Tahun |');
 writeln('|_______________________|__________|____________|');
 end;

 Procedure Output;
 Begin
 clrscr;
 writeln(' _______________________________________________');
 writeln('|                             BIODATA MAHASISWA                        |');
 writeln('|_______________________________________________|');
 writeln('|                    Nama                 |      NIM      |          Umur        |');
 writeln('|_______________________|__________|_____________|');
 writeln('|                                               |                   |                          |');
 for i:=1 to n do
  begin
   with Data[i] do
    begin
     gotoxy(1,6+i);Kolom;
     gotoxy(3,6+i);writeln(Nama);
     gotoxy(27,6+i);writeln(NIM);
     gotoxy(38,6+i);writeln(Umur);
    end;
  end;
 readkey;
end;

Begin
repeat
clrscr;
  writeln(' ______________________');
  writeln('|            Menu Utama            |');
  writeln('|  1. Masukkan Data              |');
  writeln('|  2. Lihat Data                      |');
  writeln('|  3. Keluar                           |');
  writeln('|______________________|');
  writeln('|                                            |');
  writeln('| Masukkan Pilihan :              |');
  writeln('|______________________|');
  gotoxy(22,8);readln(Pilih);
  case Pilih of
  '1' : Input;
  '2' : Output;
  '3' : Exit;
end;
Until (Pilih)='3';
end.




Contoh Screenshoot Program pada saat dijalankan