массив из линейных односвязных списков. Паскаль

[sergo93]

Всем добрый вечер. Меня волнует вот какой вопрос правильно ли написана самая первая процедура. И если нет то как её доделать. В массив состоящий из линейных односвязных списков вводятся вершины и их вес, правильно ли я это сделал?(фри паскаль)

PROGRAM G_r_a_p_h_1;
type  TipRecord = Byte;
      svqz = ^zveno;
     zveno = Record
        Key, Ves : byte; { Вершина графа }
        Sled: svqz { Указатель на следующую }
                   { смежную вершину }
     end;
     { Описание типа списков смежности }
	 Massiv = Array [1..10] of svqz;
var   
    Beg :massiv;	{ Списки смежности }
    i,j : Integer; { Параметры циклов }
    x : Integer; { Начало дуги }
    y : Integer;	{ Конец дуги }
    n : byte;	
	
procedure Make(var n:byte);
 var
  m,i,k,f,l:integer;
  Uzel,UkZv:svqz;
 begin
 
     writeln('число вершин в графе:');
     readln(n);
	 for i:=1 to n do
          begin	 
	      new(beg[i]);
		  writeln ('число смежных вершин для вершины ',i,':');
		  readln(m); 			  
		  for l:=1 to m do
		     begin
			    writeln('номер смежной вершины:');
				readln(k);
				writeln('вес  дуги,k,':');
				readln(f);
				New (Uzel);
                Uzel^.Sled:=Nil;				
				Uzel^.Key:=k; 
				Uzel^.Ves:=f; 
				UkZv:=Beg[i];
                While UkZv^.Sled<>Nil do 
				UkZv:=UkZv^.Sled;
                UkZv^.Sled:=Uzel;
				
			end;			
      end;			
end;

[Poma][a]

поправь код

[sergo93]

А по сути есть какие замечания?

[Poma][a]

Честно говоря не знаю не графы, не списки... Ты просто напиши вывод и посмотри правильно ли выводит...