Contoh Program Array Menggunakan Turbo Pascal

program SIM;
uses wincrt;
var  i ,a, k :integer;
lagi : char;
    bysim, pot,jbyr :real;
    nama, alm,tlp,u,jsim : array[1..50] of string[20];

begin
clrscr;
 writeln(' PROGRAM POIN DAN INSENTIF KARYAWAN ');
 writeln(' PT. MAJU MAKMUR BERSAMA   ');
 writeln('=========================================');
  begin
  k:=0;
   lagi := 'Y';
   while upcase(lagi)='Y' do
    begin
     i:=i+1;
     write('Nama               : '); readln(nama[i]);
     write('Alamat             : '); readln(alm[i]);
     write('Telepone           : '); readln(tlp[i]);
     write('Umur               : '); readln(u[i]);
    write('Jenis SIM          : '); readln(jsim[i]);
    writeln;
 
    if jsim[i] = 'A' then
     bysim := 800000
     else
     if jsim[i] = 'B' then
     bysim := 500000 else
     bysim := 300000;

    if u[i] > '55' then
    pot := 0.20 * bysim else
    pot := 0;

   jbyr:= bysim - pot;
writeln('Biaya SIM            : ',bysim:8:2);
writeln('Potongan             : ',pot:8:2);
writeln('Jumlah Bayar         : ',jbyr:8:2);
  
write('------------------------------------------') ;
writeln;
write('Ada lagi data yang mau di masukan [Y/T] : ');
readln(lagi);
writeln;
end;
end;
begin
       clrscr;
       gotoxy(27,1);writeln('BIRO JASA "SAHABAT"');
       gotoxy(30,2);writeln('PT.MAJU ');
       writeln;
       writeln('==============================================================================');
       writeln('no nama  Alamat Telephone Umur  Jenis SIM  Biaya Sim  Potongan   Jml Bayar');
       writeln('==============================================================================');

       k:=0;
         while k< i do

         begin
         k:=k+1;
           a:=7+i;
           gotoxy(1,a);write(i);
            gotoxy(5,a);write(nama[i]);
             gotoxy(15,a);write(alm[i]);
             gotoxy(20,a);write(tlp[i]);
              gotoxy(33,a);write(u[i]);
             gotoxy(47,a);write(jsim[i]);
            gotoxy(60,a);write(bysim:7:0);
           gotoxy(70,a);write(jbyr:7:0);
           writeln;
         end;
        writeln('-------------------------------------------------------------------------------');
     end;
end.