membuat grafik dengan array

Array:
    Merupakan suatu tipe data terstruktur yang terdiri dari sejumlah elemen (tempat) yang mempunyai  data yang sama.
Nama lain array adalah larik,tabel atau vektor.
Array dapat berupa satu dimensi, dua dimensi, tiga dimensi ataupun banyak dimensi
contoh penggunaan array

Membuat grafik dengan pascal
    Diini saya akan membuat sebuah grafik, yang mana dari grafik tsb menggunakan type array. alasan digunakannay array karena dalam sbuah grafik tentunya
yang di data adalah jenis data yang sama, dari data pertama hingga berikutnya dengan ini data yang berbeda. contohnya grafik tingkat penduduk. dari thn 1 hingga selanjutnya tentunya tidak mesti nilainya sama.


program grafik1;
uses wincrt;
var data               :array[1..10]of integer;
    a,pnddk            :integer;
    b,c,x              :byte;
begin
writeln('Tingkat Kependudukan');
gotoxy(20,3);writeln('Skala 1:100');
gotoxy(3,4);write('Y');
for b:=0 to 10 do
begin
gotoxy(0,15-b);
write(b);
end;
for a:=1 to 10 do
begin
gotoxy(3,15-a);
write('|');
end;
for c:=1 to 9 do
begin
gotoxy(4*c,15);
write('========');
end;
write('X');writeln;writeln;
gotoxy(25,17);writeln('tahun');
writeln;writeln;writeln('PERINGATAN!!');
write(' Bila input >10 maka grafik tidak membacanya');
for c:=1 to 8 do
begin
gotoxy(4*c,16);
write('0',c);
end;
for pnddk:=1 to 8 do
begin
    
gotoxy(45,4+pnddk);write(pnddk,'.Tingkat penduduk pd thn ke',pnddk,':');
readln(data[pnddk]);
if (data[pnddk]>10) then
   begin
   data[pnddk]:=0;
   end;

     {batang grafik}
     for x:=1 to data[pnddk] do
     begin
     gotoxy(4*pnddk,15-x);write('|',x,'|');
     end;
end;
end.

dari program diatas Maka didapat run seperti ini.