Реферат: Нахождение пути от одного населённого пункта к другому

t:town; {Данные о городах}

nt:integer; {Число городов}

r:road; {Данные о дорогах}

nr:integer; {Число дорог}

sl:integer; {Выбранный пункт меню}

c:char; {Нажатый символ}

i:integer; {Счетчик}

fv:vec; {Вектор пройденных городов}

nfv:integer; {Количество городов}

Const

KItems = 6; {Количество пунктов меню}

mas: array[1..KItems] of string =

{Инициализация пунктов меню}

('¦ Ввод данных ¦',

'¦ Вывод данных ¦',

'¦ Запись в файл ¦',

'¦ Считывание файла ¦',

'¦ Вывод результата ¦',

'L------ Выход -------');

{Основная программа}

begin

sl:=1;

{Городов и дорог нет}

nt:=0;

nr:=0;

repeat

textattr:=7; {Основной цвет меню}

clrscr;

for i:=1 to KItems do begin