Множества. Паскаль. Переделать чуток.

[Heming]

Помогите чуток переделать задачу, я принес преподу прогу, а оказывается нужно было по другому её сделать. Нужно чтобы пользователь осуществлял ввод городов сам и возможные пути от этого города(т.е. расписание рейсов и города задавал сам пользователь.).
Вот код:

Const countCity=5;
type
tmn=set of 1..countCity;
tmatr=array[1..countCity] of tmn;
var matr:tmatr;
 Name:array [1..countCity] of string[10];
 s,c,i:byte;
 R:tmn;
Procedure City(M:tmatr;X,Count:byte;Var Rez:tmn);
 var oldrez:tmn; i,j,k:byte;
 begin
  OldRez:=[x];
  for i:=1 to count do
   begin
    for j:=1 to countCity do
     if j in oldRez then  Rez:=Rez+M[j];
    oldRez:=Rez;
   end;
 end;
begin
 matr[1]:=[3,2]; Name[1]:='Днепропетровск';
 matr[2]:=[1,5]; Name[2]:='Киев';
 matr[3]:=[1,2]; Name[3]:='Одесса*';
 matr[4]:=[3,2]; Name[4]:='Донецк';
 matr[5]:=[4];   Name[5]:='Николаев';
 writeln('Днепр- 1. Киев - 2. Одеса - 3. Донецк - 4. Николаев - 5. ');
 writeln('Днепр : 3,2');
 writeln('Киев : 1,5');
 writeln('Одесса : 1,2');
 writeln('Донецк : 3,2');
 writeln('Николаев: 4');
 write('Введите город*: '); readln(S);
 write('Введите кол-во рейсов '); readln(C);
 City(matr,S,C,R);
 write('Города в которые вы попадете ');
 for i:=1 to countCity do
  if i in R then write(Name[i],' ');
 readln;
end.

От каждого города максимум в три других города. И все города нужно задавать текстом, типо
Задайте город: Киев
В какие города от него можно попасть: Днепропетровск Житомир Черкасы
Задайте город:
......
Выберите город: Киев
Сколько рейсов : 1
Вы попадете в : Днепропетровск Житомир Черкасы
//если рейсов уже два то я попаду еще и в города , в которые можно попасть за один рейс из предыдущих трех
Я так понимаю тут множества должны быть string, но я начинаю делать выходить дичь, с кучей ошибок...