Türkiyenin İl Kodlarını Gösteren PascaL

Biraz uzun gibi gözüksede güzel bir program...

Türkiye'nin İl Kodlarını Gösteren Pascal Program

const
il:Array[1..81] of string[15]=('adana','adiyaman','afyon','agri','amasya','anka ra',
'antalya','artvin','aydin','balikesir',
'bilecik','bingöl','bitlis','bolu','burdur','bursa ','çanakkale',
'cankiri','corum','denizli','diyarbakır','edirne', 'elazıg','erzincan',
'erzurum','eskisehir','gaziantep','giresun',
'gümüshane','hakkari','hatay','ısparta','ıcel',
'Istanbul','izmir','kars','kastamonu',
'kayseri','kırklareli','kırsehir','kocaeli',
'konya','kütahya','malatya','manisa','maras',
'mardin','mugla','mus','nevsehir',
'nigde','ordu','rize','sakarya','samsun',
'siirt','sinop','sivas','tekirdag','tokat',
'trabzon','tunceli','sanlıurfa','usak','van',
'yozgat','zonguldak','aksaray','bayburt','karaman' ,'kırıkkale','batman','sırnak','bartın','ardahan',
'ıgdır','yalova','karabük','kilis','osmaniye','düz ce');
trafik:Array[1..81] of byte=(01,02,03,04,05,06,07,08,09,10,11,12,13,14,15 ,16,17,18,19,20,21,22,23,24,25,26,
27,28,29,30,31,32,33,
34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50 ,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,6 7,68,69,70,71,72,73,74,75,
76,77,78,79,80,81);
var
a1,l,j,d,c,k:string;
w,q,a,b,t:IntegeR;
secim:Integer;
begin
clrscr;
writeln('│-----------------------------------------------│');
writeln('│ 1.trafik kodu 2.il adi │');
writeln('│-----------------------------------------------│');
***oxy(24,4);readln(secim );
if secim=1 then
begin
writeln('│-----------------------------------------------│');
writeln('│ trafik kodunu gir │');
writeln('│-----------------------------------------------│'); ***oxy(24,; readln(b);
for a:=1 to 1 do
writeln('│-----------------------------------------------│');
writeln('│ │');
writeln('│-----------------------------------------------│');
***oxy(14,10);writeln('il adi....',il);
end;
if secim=2 then
begin
writeln('│-----------------------------------------------│');
writeln('│ il adini gir │');
writeln('│-----------------------------------------------│'); ***oxy(24,;readln(c);
for a:=1 to 81 do
if il[a]=c then
begin
writeln('│-----------------------------------------------│');
writeln('│ │');
writeln('│-----------------------------------------------│');
***oxy(16,10);writeln('trafik kodu...',trafik[a]);
end;
end;
readln;