Последовательность

var
  a:array[1..200] of record
    n,p:integer;
    z  :longint;
  end;
  i,j,n:integer;
begin
  readln(n);
  for i:=1 to n do begin
    read(a[i].z);
    a[i].p:=i-1;
    a[i].n:=i+1;
  end;
  i:=1;j:=1;
  while i<n do begin
    if (a[i].p>0) and 
       (a[i].n<=n) and 
       (a[i].z<a[a[i].p].z) and 
       (a[i].z<a[a[i].n].z) then begin
          a[a[i].p].n:=a[i].n;
          a[a[i].n].p:=a[i].p;
          i:=a[i].p;j:=j-1;
        end else begin i:=a[i].n;j:=j+1;end;
  end;
  writeln(j);
  i:=1;
  while i<=n do begin write(a[i].z,' ');i:=a[i].n;end;
 
end.

##
  var a := ReadArrInteger(ReadInteger);
  a := a.Where((x, i)-> not (a[:i].Any(j -> j > x) and a[i:].Any(j -> j > x))).ToArray;
  a.Length.Println;
  a.Print

##
  var n := ReadlnInteger('n ='); 
  $'Введите  натуральные числа (можно через пробел):'.Println;
  var a := ReadSeqInteger(n).ToList;  //var a := Lst(1, 2, 3, 2, 4, 1, 3, 4, 2, 3, 2, 1);
  var j := 1;
  $'Входные данные {NewLine}{n}'.Println;a.Println;
  while j<a.Count-1 do
  begin
    While (j > 0) and  (a[j]<a[j-1]) and (a[j]<a[j+1]) do begin a.RemoveAt(j); j -= 1 end;
    j += 1;
  end;
   $'Выходные данные {NewLine}{a.Count}'.Println; a.Println;