Определяет ошыбку end expected

[helena91]

Ето программа обхода графа в глубину, граф представляется списком инцидентности. Определяет ошыбку end expected, но на самом деле количество end нужное.
вот сам текст програмы:

program l;
uses crt;

Type List = ^S;

S = record;

inf : Byte;

next : List;

end;

Var Gr : array[1..n] of List;

Procedure Obhod(gr : Graph; k : Byte);

Var g : Graph; l : List;

Begin

nov[k] := false;

g := gr;

While g^.inf <> k do

g := g^.next;

l := g^.smeg;

While l <> nil do begin

If nov[l^.inf] then Obhod(gr, l^.inf);

l := l^.next;

End;

End;
End.

[Летучий_СкилетиК]

1. нужно заранее определять размерность массива

Var Gr : array[1..n] of List;

const n = //размерность массива

2.

Graph

а что за тип такой?

[Deniska_777]

Сообщение от helena91

program l;
uses crt;

Type List = ^S;

S = record;

inf : Byte;

next : List;

end;

почему у вас end стоит ?
вы ведь не открывали begin .

[Летучий_СкилетиК]

Сообщение от Deniska_777

почему у вас end стоит ?
вы ведь не открывали begin .

, здесь begin вовсе не нужен , end показывает что конец записи.

[veniside]

S = record;

точку с запятой убрать.

Var Gr : array[1..n] of List;

n объявить.

Procedure Obhod(gr : Graph; k : Byte);

Graph объявить.

nov[k] := false;

nov объявить.

Тогда ваш обход графа может и заработает )

[Вадим Мошев]

И ещё один советик:

Пишите код отформатированным, то есть, чтобы была очень хорошо видна вложенность и иерархия операторов. А то у вас всё в один столбец написано, выровнено по левому краю... вы сами даже запутались...