Деревянный алгоритм(Pascal)

[-snt]

Составить программу в паскале, где следует заполнить двумерный(зеркальный по диагонали) массив рандомом или вводом с клавиатуры, а в подпрограмме найти эйлеров цикл и вывести его последовательность пунктов обхода. В общем пройти каждый пункт 1 раз и вернуться в начало

Написал код основной программы для заполнения матрицы:
Код Pascal1

Program D;
var
n,i,j: integer;
a: array[1..100,1..100] of integer;
begin
writeln ('Vvedite kol-vo gorodov');
readln (n);
for i:=1 to n do
for j:=1 to n do
begin
if i=j then begin
a[i,j]:=0;
end;
if i<j then begin
writeln ('Vvedite rasstoyanie v ycheiku (a[',i,'-',j,']=)');
readln (a[i,j]);
a[i,j]:=a[j,i];
end;end;
end.

Подскажите пожалуйста, как в подпрограмме можно реализовать нахождение эйлерова цикла, используя массив с пунктами обхода коммивояжёра?

[-snt]

чё никто не знает?)