Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Напечатать те числа из массива, которые больше предыдущего числа. Так, если А = { 2, 4, –3, 0, 5, 7, 5}, результат: 4 (4 > 2) и 0 (0 > –3) и 5 (5 > 0) и 7 (7 > 5)
​

Также прикладываю текст программы в файле.

===PascalABC.Net===

program ;

var

 arr: array [1..100] of integer;

 size, i: integer;

begin

 Write('Введите размер массива: ');

 ReadLn(size);

 Write('Введите числа в массиве: ');

 for i := 1 to size do

   Read(arr[i]);

 Write('Результат: ');

 for i := 2 to size do

   if arr[i] > arr[i - 1] then

     Write(arr[i]);

end.