Реализация линейного списка и основных алгоритмов его обработки

type
  tstock = ^pstock;
  pstock = record
    nom : Integer;
    code : Integer;
    name : String;
    date : String[10];
    days : Integer;
    count : Integer;
    x : tstock;
  end;
  
function inputprod : tstock;
var
  prod : tstock;
begin
  New(prod);
  Write('№ склада: '); ReadLn(prod^.nom);
  Write('код товара: '); ReadLn(prod^.code);
  Write('наименование: '); ReadLn(prod^.name);
  Write('дата поступления: '); ReadLn(prod^.date);
  Write('срок хранения: '); ReadLn(prod^.days);
  Write('количество: '); ReadLn(prod^.count);
  prod^.x := nil;
  inputprod := prod;
end;
 
function inputlist : tstock;
var
  first, last : tstock;
  i, n : Integer;
begin
  first := nil;
  Write('Количество: '); ReadLn(n);
  for i := 1 to n do
    if first = nil then
      begin
        first := inputprod;
        last := first;
      end
    else
      begin
        last^.x := inputprod;
        last := last^.x;
      end;
  inputlist := first;
end;
 
procedure outprod(prod : tstock);
begin
  WriteLn(prod^.nom, #32#32, prod^.code, #32#32, prod^.name, #32#32, prod^.date, #32#32, prod^.days, #32#32, prod^.count);
end;
 
procedure findstocknum(list : tstock);
var
  nom : Integer;
begin
  Write('№ склада: '); ReadLn(nom);
  while list <> nil do
    begin
      if list^.nom = nom then
        outprod(list);
      list := list^.x;
    end;
end;
 
var
  stock : tstock;
begin
  stock := inputlist;
  findstocknum(stock);
end.