Contoh Program Pascal menggunakan Array

Program kartun1;

Uses wincrt;

Const

max=5;

Type

kartun=array[1..max] of string[10];

Var

Jnskartun :kartun;

i:integer;

begin

For i:=1 to max do

Jnskartun[1]:='Shinchan';

Jnskartun[2]:='Doraemon';

Jnskartun[3]:='Larva';

Jnskartun[4]:='Dragonball';

Jnskartun[5]:='Avatar';

For i:=1 to max do

writeln(i,'. ',Jnskartun[i]);

end.