Дан перечень чисел. Выведите все элементы перечня, которые больше предшествующего элемента.

Составим алгоритм отбора чисел, удовлетворяющих условию задания.
В "списке" выделяются пары примыкающих частей и в каждой паре проверяется, превышает ли значение второго элемента пары значение первого элемента. Если превышает, второй элемент значение второго элемента передается на выход. Для списка из n частей процесс повторятся n-1 раз.

В условии есть один неприятный момент. Количество элементов в перечне нигде не обозначено. Пока еще, увы, привычный большинству "школьный" паскаль не умеет работать с такими перечнями, а вот PascalABC.NET 3.3 может, поэтому используем его.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  ReadlnString.ToIntegers.Pairwise.Where(t-gt;t[1]gt;t[0]).Select(t-gt;t[1]).Println
end.

Итог
1 5 2 4 3
5 4

Const n=10;
var a: array[1..n] of integer;
    i: integer;
begin
  randomize;
  writeln('перечень:');
  for i:=1 to n do 
  begin
    a[i]:=random(-20,20);
    write(a[i],' ');
  end; 
  writeln;
  for i:=2 to n do 
    if a[i]gt;a[i-1] then write(a[i]:4);
end.

список:
-20 -20 -14 -18 20 12 -2 -6 -13 15 
 -14  20  15

Если ввод с клавиатуры:

var a: array of integer;
    i,n: integer;
begin
  write('n = ');  readln(n);
  setlength(a,n+1);
  for i:=1 to n do read(a[i]);
  for i:=2 to n do 
  if a[i]gt;a[i-1] then write(a[i],' ');
end.