Двусвязные списки

[Екатерина57]

Помогите найти max элемент и удалить его.
Вот кусочек кода:

type sps=^count;
     count=record
           data:integer;
           prev:sps;
           next:sps;
          end;
var p:sps;
    first:sps;
    n,i:integer; 
begin

repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
for i:=1 to n do
 begin
  new(p);
  readln(p^.data);
  if first=nil then
   begin
    p^.next:=p;
    p^.prev:=p;
    first:=p;
   end
  else 
   begin
    p^.next:=first;
    p^.prev:=first^.prev;
    first^.prev^.next:=p;
    first^.prev:=p;
   end;
 end;
p:=first;
writeln('В прямом порядке');
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

type
  sps = ^count;
  count = record
    data: integer;
    prev: sps;
    next: sps;
  end;

var
  first, p, pmax: sps;
  n, i: integer;

begin

  repeat
    write('Размер списка n>1 n=');
    readln(n);
  until n > 1;
  for i := 1 to n do
  begin
    new(p);
    // readln(p^.data);
    p^.data := i * 10;
    if first = nil then
    begin
      p^.next := p;
      p^.prev := p;
      first := p;
    end
    else
    begin
      p^.next := first;
      p^.prev := first^.prev;
      first^.prev^.next := p;
      first^.prev := p;
    end;
  end;
  p := first;
  writeln('В прямом порядке');
  while (p <> nil) do
  begin
    Write(p^.data, ' ');
    p := p^.next;
    if p = first then p := nil
  end;
  WriteLn;

  p := first;
  writeln('В обратном порядке');
  if (p <> nil) then begin
    repeat
      p := p^.prev;
      Write(p^.data, ' ');
      if p = first then p := nil;
    until p = nil;
  end;

  { удалить максимальный }
  pmax := first;
  p := first;
  while (p <> nil) do
  begin
    if p^.data > pmax^.data then pmax := p;
    p := p^.next;
    if p = first then p := nil
  end;
  WriteLn;
  WriteLn('max = ', pmax^.data);

  if pmax = first then first := pmax^.next;
  pmax^.prev^.next := pmax^.next;
  pmax^.next^.prev := pmax^.prev;
  Dispose(pmax);

  p := first;
  writeln('В прямом порядке');
  while (p <> nil) do
  begin
    Write(p^.data, ' ');
    p := p^.next;
    if p = first then p := nil
  end;
  WriteLn;
end.

[Екатерина57]

Огромное спасибо!!!