... массив хромосом var towns:TTowns;//переменная городов i,j,k,p,n:word;//переменные для циклов и т.д. и т.п. osobi,new_osobi,pr:TOsobi;//переменные особей c:char;//просто символьная переменная Некоторые замечания по листингу: towns[i,j] - расстояние между i ...