İl Kodları Programı

Program il_kodlari;
uses wincrt;
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üzce');
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,67,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('-------------------------------------------------');
gotoxy(24,4);readln(secim );
if secim=1 then
begin
writeln('-------------------------------------------------');
writeln('- trafik kodunu gir -');
writeln('-------------------------------------------------'); gotoxy(24,; readln(b);
for a:=1 to 1 do
writeln('-------------------------------------------------');
writeln('- -');
writeln('-------------------------------------------------');
gotoxy(14,10);writeln('il adi....:');
end;
if secim=2 then
begin
writeln('-------------------------------------------------');
writeln('- il adini gir -');
writeln('-------------------------------------------------'); gotoxy(24,;readln(c);
for a:=1 to 81 do
if il[a]=c then
begin
writeln('-------------------------------------------------');
writeln('- -');
writeln('-------------------------------------------------');
gotoxy(16,10);writeln('trafik kodu...',trafik[a]);
end;
end;
readln;
end.