Случайное значение из списка

[olya-rud]

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

[JUDAS]

Пусть структуры описаны следующим образом:

TPElem =^TTElem; 
TTElem = record
  ...
  PNext : TPElem;
end;

TList = record
    PFirst : TPElem;
    PLast : TPElem;
end;

Случайный элемент списка можно считать элементом цепочки, вложенным на определённую глубину заданную случайным числом

function RandomElement(list : TList) : TPElem;
var count : integer;
begin
  count := random * число;
  result := nil;
  if Assigned(list.PFirst) then 
     result := list.PFirst else
  if Assigned(list.PLast) then 
    result := list.PLast;
  while Assigned(result)  do
  begin
     if Assigned(result.PNext) then 
       result :=result.PNext; 
     dec(count);
     if (count<1) break;
  end;
end;

[Serge_Bliznykov]

Оля, ладно.
попробуйте такой код:

 //Вывод случайного элемента из однонаправленного списка aList.
procedure PrintRandomFromList(const aList: TList);
var
  PElem: TPElem;
  n,m : integer;
begin
  n:=0;
  PElem := aList.PFirst;
  while PElem <> nil do 
  begin
    Inc(n); {нарастили счётчик элементов на единичку}
    PElem := PElem^.PNext;
  end;
  writeln('Количество элементов: ', n);
  if n=0 then begin
    WriteLn('Список пуст, нет в нём никаких значений! Расходимся...');
    Exit;
  end;
  randomize;
  m := random(n) + 1; {число в диапазоне 1 -:- n}
  writeln('Случайное число: ', m);

  //поиск и печать m-ного элемента
  PElem := aList.PFirst;
  while m>1 do begin
      PElem := PElem^.PNext;
      Dec(m)
  end;
  writeln('Элемент: ', PElem^.Data);
end;

[olya-rud]

Serge_Bliznykov огромное спасибо, все работает