Песни о Паскале

      TBoundSet = set of 1..255; { множество границ некоторой страны }
      { Массив множеств TStates – это границы всех стран }
      TStates = array ['A'..'Z'] of TBoundSet;
      { Процедура чтения множества чисел (границ) из строки файла }
procedure ReadSet(var aFile: text; var aSet : TBoundSet);
var k : integer;
begin
      while not Eoln(aFile) do begin
      Read(aFile, k);
      aSet:= aSet+[k];
      end;
      Readln (aFile);
end;
      { Глобальные переменные }
var FileIn : text;       { Входной файл, полученный со спутника }
      States : TStates;       { Массив множеств границ }
      Names : TNameSet;       { Множество имен всех стран на карте }
      C1, C2 : char;       { Имена стран "откуда" и "куда" }
      C       : char;       { Рабочая переменная для имен стран }
      EmpireB: TBoundSet; { Границы империи }
      Temp : TBoundSet; { Предыдущие границы империи }
      EmpireN: TNameSet;       { страны империи }
      Counter: integer;       { Счетчик пересечений границ (результат) }
begin       {--- Главная программа ---}
{ Открываем входной файл }
Assign(FileIn, 'P_38_3.in'); Reset(FileIn);
{ Готовим цикл чтения массива множеств }
Names:=[ ]; { Названия стран }
C:= 'A'; { Первый индекс в массиве стран }
while not Eof(FileIn) do begin { Цикл чтения массива множеств }
      ReadSet(FileIn, States[C]); { Чтение одного множества }
      Names:= Names+[C];       { Добавляем имя страны }
      C:= Succ(C);       { Переход к следующей букве }
end;
Close(FileIn); { Теперь входной файл можно закрыть }
repeat { «Упрямый» цикл чтения правильных имен стран }
      Write('Откуда: '); Readln(C1);
      Write('Куда : '); Readln(C2);
      { Переводим имена стран в верхний регистр }
      C1:= UpCase(C1); C2:= UpCase(C2);
      { Если имена не совпадают и оба достоверны, значит ввод правильный,
      в таком случае выходим из цикла, а иначе повторяем ввод }
      if (C1<>C2) and (C1 in Names) and (C2 in Names)
      then Break
      else Writeln('Ошибка! Повторите ввод имен стран');
until False;