Cari Data di Pascal

Program CariData;
{Contoh Pencarian data pada Array}
Uses crt;
Type
String15=string[15];
Const
Jum_Elemen=10;
NamaKota:Array[1..Jum_Elemen] Of String15
=('PALEMBANG','MEDAN','PADANG','JAMBI','JAKARTA',
'SURABAYA','SEMARANG','YOGYAKARTA','BANDUNG',
'SOLO','KALIMANTAN','SULAWESI');