Линейный список, Создать с помщью Randomize Опции

[Madam]

Здравствуйте!
Помогите пожалуйста далеко не юной зочнице справится с кусовиком.
Как с помощью Randomize создать линейный список из десяти положительных целых чисел?
Заранее благодарю.

Сообщение отредактировано: Madam - 10.10.2006 12:36

[volvo]

P.S. Кстати, программа вообще аварийно заканчивается (при использовании FPC любые огрехи видны очень четко: чуть что - Segmentation Fault, что в большинстве случаем замалчивается Turbo Pascal-ем, потом выдающим некорректный результат)...

Причина: наличие в программе ГЛОБАЛЬНОЙ переменной First, которая просто НЕ инициализирована... ЛОКАЛЬНАЯ переменная, описанная в Create_List ее перекрывает... Это - ошибка...

[Madam]

Причина: наличие в программе ГЛОБАЛЬНОЙ переменной First, которая просто НЕ инициализирована... ЛОКАЛЬНАЯ переменная, описанная в Create_List ее перекрывает... Это - ошибка...

Сделала first локальной - результат тот же

Program Seachlst;
uses CRT;

type pt = ^elem;
	 elem = record
	 info : byte;
	 next : pt;
	 end;
var p,p1,q{,first}:pt;
			   M:integer;
{----------------------------------------------------------------------------}
procedure create_list(var p:pt);
var first,last,curr:pt;
	i,X:byte;
  begin
	first:=nil;
	last:=nil;
	  for i:=1 to 10 do
		begin
		  X:=Random(98)+1;
		  new(curr);
		  curr^.info:=X;
		  curr^.next:=nil;
		  if first=nil then first:=curr
			else last^.next:=curr;
		  last:=curr;
		end;
		p:=first;
  end;
{___________________________________________________________________________}
procedure Cearch_element(var q:pt); {q -seach element}
var first,p:pt;
	M:integer;
	begin
	  first:=nil;
	  p:=first;
	  writeln('input element: ');
	  ReadLn(M);
	  while ((p^.next<>Nil) and (p^.info<>M))do
		p:=p^.next;

Может дело в последней строчке?