program ProjectTehnari;

{$APPTYPE CONSOLE}

type
     TPRecordList=^TRecordList;

     TRecordList = record
     Next:  TPRecordList;
     Value: Integer;
     end;


var StartElement,FoundElement:TPRecordList;
    i,x:Integer;

procedure AddElement(var AList:TPRecordList;AValue:Integer);
var
  Element:TPRecordList;
begin
  if AList = nil then
     begin
     New(Element);
     Element.Next:=nil;
     Element.Value:=AValue;
     AList := Element;
     FoundElement:=AList;
     end
  else
     addElement(AList.Next,AValue);

end;

procedure FreeList;
var
Next,CurList: TPRecordList;
begin
  CurList:=StartElement;
  while CurList<>nil do
    begin
        Next:=CurList.Next;
        Dispose(CurList);
        CurList:=Next;
    end;
   StartElement:=nil;
end;

function FindElement(AValue:Integer):TPRecordList;
var
CurList: TPRecordList;
begin
  FindElement:=nil;
  CurList:=StartElement;
  while CurList<>nil do
    begin
      if CurList.Value=AValue then
      begin
        FindElement:=CurList;
        exit;
      end;
      CurList:=CurList.Next;
    end;
end;

procedure outList;
var cnt:Integer;
CurList: TPRecordList;
begin
  cnt:=1;
  CurList:=StartElement;
  writeln('---------------------------------------------');
  while CurList<>nil do
    begin
        writeln('Элемент списка #' ,cnt,' Значение : ',CurList.Value);
        cnt:=cnt+1;
        CurList:=CurList.Next;
    end;
end;

procedure outElement(AElement:TPRecordList);
begin
  writeln('---------------------------------------------');
  writeln('Элемент списка имеет значение : ',AElement.Value);
end;



begin
   StartElement:=nil;
{* Формируем список *}
   Randomize;
   for i:=1 to 20 do
     AddElement(StartElement,Random(100));
{* Вывод списка *}
   outList;
   write('Введите значение (целое число) X: ');  readln(x);
{* Ищем в списке *}
   FoundElement:=FindElement(x);
{* Если не нашли то добавляем элемент в список *}
   if FoundElement=nil then
       addElement(StartElement,x);
{* Выводим элемент *}
   outElement(FoundElement);
{* Вывод списка - для проверки, что элемент добавлен*}
   outList;
{* Удаляем список *}
   FreeList;
   readln;
end.