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

uses crt;

type

town= array [1..20] of string; {Данные о городах}

road= array [1..200] of record {Данные о дорогах}

a:integer;

b:integer;

end;

vec=array [1..20] of integer; {Данные о пройденных городах}

var

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

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

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

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

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

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

procedure InputData;

procedure OutputData;

procedure Save;

procedure Load;

procedure findnext(a:vec; tv:integer; nv:integer; lv:integer);

procedure FindPath;

implementation

{ Ввод данных }

procedure InputData;

var

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

n:integer; {Выбранный начальный город}

sl:integer; {Выбранный город}

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