Линейные списки

type
  tList = ^pList;
  pList = record
    v : Real;
    x : tList;
  end;
 
function NewVal(index : Integer) : tList;
var
  Res : tList;
begin
  New(Res);
  Write('Значение ', index, ' элемента = '); ReadLn(Res^.v);
  NewVal := Res;
end;
  
function CreateList : tList;
var
  Count, i : Integer;
  First, Last : tList;
begin
  Write('Число элементов списка: '); ReadLn(Count);
  if Count < 1 then
    begin
      CreateList := Nil;
      Exit;
    end;
  First := NewVal(1);
  Last := First;
  for i := 2 to Count do
    begin
      Last^.x := NewVal(i);
      Last := Last^.x;
    end;
  Last^.x := nil;
  CreateList := First;
end;
 
procedure OutList(msg : String; List : tList);
begin
  Write(msg);
  if List = nil then
    Write(' список пуст')
  else
    while List <> nil do
      begin
        Write(#32, List^.v);
        List := List^.x;
      end;
  WriteLn;
end;
 
procedure Replace(var List : tList);
var
  Cur : tList;
  E1, E2 : Real;
begin
  Write('   Что менять: '); ReadLn(E1);
  Write('На что менять: '); ReadLn(E2);
  Cur := List;
  while Cur <> nil do
    begin
      if Cur^.v = E1 then
        Cur^.v := E2;
      Cur := Cur^.x;
    end;
end;
 
var
  List : tList;
  
begin
  List := CreateList;
  OutList('Введён список:', List);
  Replace(List);
  OutList(' Новый список:', List);
end.