Поиск цикла длины 4.

[<Бананан>]

Проблемка с программой. Теория Графов. Программка простенькая, но плохо знаю язык.

[<Бананан>]

program cycle_;

{$APPTYPE CONSOLE}

uses
SysUtils,Graphs;

const
MAX_VERTEX_COUNT=50;

procedure Graph_LoadFromMatrixFile(var F:TextFile;var G: TGraphMatrix;
var VertexCount: integer);

procedure DeepSearch(G:TGraphMatrix;bv:intege r);
var Used: array of boolean;
i: integer;
M: array of array of boolean;

procedure DSRec(v:integer);
var TmpV: integer;
k: integer;
begin
k:=0;
Used[v]:=true;
for TmpV:=0 to Pred(VertexCount) do
if M[TmpV,v] then begin
if not Used[TmpV] then begin
k:=k+1;
Used[Tmpv]:=true;
DSRec(TmpV);
if k=4 then
Used[TmpV]:=false;
{k:=k-1;
if not Used[TmpV] then
Used[TmpV]:=false;}
end;
end;
end;

var VertexCount: Integer; { число вершин графа }
F: TextFile;

begin
{ загружаем граф из файла в формате матриц смежности }
Graph_LoadFromMatrixFileName('INPUT .TXT', G, VertexCount);
AssignFile(F, 'OUTPUT.TXT');
for i := 0 to VertexCount-1 do
begin
DSRec(i);
if Used[i]=false then begin
Rewrite(F);
Writeln(F, i+1);
end;
CloseFile(F);
end;
end.

[<Бананан>]

выдаёт ошибку Declaration expected but end of file found

[<Бананан>]

Вот Юнит с необходимыми процедурками)

[<Бананан>]

Варианты обхода графа)

[<Бананан>]

Примеры простых программ на Delphi)

[<Бананан>]

Помогите народ!!!!

[MaTBeu]

Чувак, ты что ваще мозгами поплыл??? Зачем все ЭТО?!?!?!?! Тут люди знают как обходить граф. А примеры простых программ на Делфи им уж точно ни к чему!!!
ТЫ бы вместо этого мусора, нормально оформил бы пост.
Показал бы где именно ошибка...

[<Бананан>]

Отвечаю, Матвей. Спасибо, что откликнулся!!! КАК Я БЕЗУМНО РАД ВСТРЕТТЬ ЛЮДЕЙ КОТОРЫЕ УМЕЮТ ОБХОДИТЬ ГРАФ!!!

Ошибка прсто в самом конце поги... проходит компиляцию целиком... и вот у точки эта ошибка.

[Карась]

Сообщение от <Бананан>

и вот у точки эта ошибка.

Компилятор так и сообщил??!