Contoh Program Array Menggunakan Turbo Paskal

program Poin;
uses wincrt;
var lagi         : char; a, i, y   : integer;
    bonus,inst,jterima,tot, point :array[1..5] of  real;
    nama,jtran  : array[1..5] of string[20];

begin
clrscr;
 writeln(' PROGRAM POIN DAN INSENTIF KARYAWAN ');
 writeln(' PT.MAJU MAKMUR BERSAMA   ');
 writeln('=========================================');
  begin
  a:=0;
   lagi := 'Y';
   while upcase(lagi)='Y' do
    begin
     i:=i+1;
     write('Nama karyawan    : '); readln(nama[i]);
     write('Jumlah Transaksi : '); readln(jtran[i]);
     write('Jumlah Poin      : '); readln(point[i]);


     if jtran[i] <'40' then
      bonus[i] := 200000  else
      if jtran[i] >='40' then
       bonus[i] := 300000 else
       bonus[i] := 500000;
      if jtran[i] > '50' then
       inst[i] := 5 * bonus[i]
       else
       inst[i] := 3 * bonus[i];
      jterima[i] := bonus[i] + inst[i];

      writeln('Bonus           : ',bonus[i]:8:2);
      writeln('Insentif        : ',inst[i]:8:2);
      writeln('Jumlah Terima   : ',jterima[i]: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('PROGRAM POIN DAN INSENTIF KARYAWAN');
       gotoxy(30,2);writeln('PT. MAJU MAKMUR BERSAMA ');
       writeln;
       writeln('==============================================================================');
       writeln('no nama karyawan   Jml Tran   Poin     Bonus   Insentif   jumlah Terima');
       writeln('==============================================================================');

       a:=0;
         while a< i do

         begin
         a:=a+1;
           y:=7+i;
           gotoxy(1,y);write(i);
            gotoxy(5,y);write(nama[i]);
             gotoxy(20,y);write(jtran[i]);
             gotoxy(32,y);write(point[i]);
              gotoxy(39,y);write(bonus[i]:7:0);
             gotoxy(50,y);write(inst[i]:7:0);
            gotoxy(60,y);write(jterima[i]:7:0);
           writeln;
         end;
        writeln('-------------------------------------------------------------------------------');
     end;
end.