Односвязные линейные списки со "сторожем"

type PList = ^TList;
     TList = record
       info : integer;
       next : PList;
     end;
var head: PList;
 
{Процедура формирования односвязного списка со сторожем}
procedure MakeList(var head: PList);
var p,q: PList;
    i,n: integer;
 
begin {MakeList}
 
  writeln('Введите кол-во  элементов списка');
  readln(n);
  randomize;
  new(head);       
  head^.next:=NIL;
  p:=head;
  for i:=1 to n do
  begin
    new(q);
    q^.info:=random(100);
    q^.next:=NIL;
    p^.next:=q;
    p:=q;
  end;
 
end; {MakeList}
 
{Процедура вывода списка на экран}
procedure PrintList(head: PList);
var p: PList;
 
begin {PrintList}
   p:=head^.next;
  while p<>NIL do
  begin
    write(p^.info:6);
    p:=p^.next;
  end;
  writeln;
 
end; {PrintList}
 
{Процедура дублирования макс.элемента}
procedure DoubleMaxElement(head: PList);
var p,q: PList;
    max: integer;
 
begin {DoubleMaxElement}
 
  {Поиск макс.элемента}
 
  p := head^.next;
  max := head^.info;
  while p <> NIL do
  begin
    if p^.info > max then
      max := p^.info;
    p := p^.next;
  end;
 
  {Дублирование макс.элемента}
 
  while p<>NIL do
    if p^.info = max then
    begin
      new(q);
      q^.info := p^.info;
      q^.next := p^.next;
      p^.next := q;
      p := q^.next;
    end
    else
      p := p^.next;
 
end; {DoubleMaxElement}
 
begin {program}
 
  MakeList(head);
  PrintList(head);
 
  DoubleMaxElement(head);
  PrintList(head);
 
  readln;
 
end. {program}