function obrab(A:Tlist) : integer;
var p: tlist;
begin
  result := 0;
  while a <> nil do begin

    good := true;
    p := a^.next;
    while (p <> nil) and good do begin
      if p^.inf <= a^.inf then good := false;
      else p := p^.next;
    end;

    if good then result := result + a^.inf;
    a := a^.next;
  end;
end;

function obrab(A:Tlist) : integer;
var p: tlist;
begin

good: boolean;

program un_list;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

type
  TElem = byte;
  TList = ^Zveno;
  Zveno = record
              inf :  Telem;
              next : TList;
          end;
var
  list: TList;

   procedure initList (var A : TList);
   begin
     A:=nil;
   end;

   procedure V_konev (var A : TList; el : TElem);
   var
     tmp : TList;
     p : TList;
   begin
     new(tmp);
     tmp^.inf:=el;
     tmp^.next:=nil;
     if A=nil then A:=tmp
     else
       begin
         p:=A;
         while p^.next<>nil do
           p:=p^.next;
         p^.next:=tmp;
       end;
   end;

   procedure Input(var A : TList);
   var
     tmp : TElem;
   begin
     write('Вводи элементы: ');
     initList(A);
     while not eoln do
     begin
       read(tmp);
       V_konev(A, tmp);
     end;
     readln;
   end;

   procedure clearList (var A : TList);
   var
     temp : TList;
   begin
     while A<>nil do
     begin
       temp:=A;
       A:=A^.next;
       dispose(temp);
     end;
   end;

  function obrab(A:Tlist) : integer;
  var p: tlist;
      good: boolean;
  begin
    result := 0;
    while a <> nil do
    begin
      good := true;
      p := a^.next;
      while (p <> nil) and good do
      begin
        if p^.inf <= a^.inf then good := false
        else p := p^.next;
      end;

      if good then result := result + a^.inf;
      a := a^.next;
    end;
  end;


begin
  setConsoleCP(1251);
  setConsoleOutputCP(1251);
  Input(list);
  writeln('Сумма: ',obrab(list));
  clearList(list);
  readln;
end.

  function obrab(A:Tlist) : integer;
  var p: tlist;
      good: boolean;
  begin
    result := 0;
    while a <> nil do
    begin
      p := a^.next;
      good := (p <> nil);
      while (p <> nil) and good do
      begin
        if p^.inf <= a^.inf then good := false
        else p := p^.next;
      end;

      if good then result := result + a^.inf;
      a := a^.next;
    end;
  end;