Contoh Array Dimensi satu dan Dua

Dibawah ini adalah skrip untuk membuat array dimensi 1 :

uses wincrt;
var
   n,i:integer;
   nilai:array[1..10] of integer;
begin
  write('Masukkan jumlah data : ');readln(n);
  for i:=1 to n do
    begin
      write('Masukkan data ',i,' : ');readln(nilai[i]);
    end;
  writeln;
  for i:=1 to n do
    writeln('Data ke- ',i,' : ',nilai[i]);
end.

Dibawah ini adalah skrip untuk membuat array dimensi 2:

uses wincrt;
var
   n,i:integer;
   nama:array[1..10] of string;
   nilai:array[1..10] of integer;
begin
  write('Masukkan jumlah data : ');readln(n);
  for i:=1 to n do
    begin
      write('Masukkan nama ',i,' : ');readln(nama[i]);
      write('Masukkan nilai ',i,' : ');readln(nilai[i]);
    end;
  writeln;
  for i:=1 to n do
    begin
      writeln('Nama ke-',i,' : ',nama[i]);
      writeln('Nilai ke-',i,' : ',nilai[i]);
    end;
end.