Дан массив, состоящий из целых чисел. Напишите программу, которая подсчитает количество элементов массива, больших предыдущего

program massiv;

var a: array[1..100] of integer;

i, n, col: integer;

begin

writeln(\'Введите количество элементов в массиве\');

readln(n);

writeln(\'Заполните массив с клавиатуры\');

for i := 1 to n do readln(a[i]);

writeln(\'Подсчёт элементов, больших предыдущего\');

for i := 2 to n do if a[i] > a[i-1] then col := col + 1;

writeln(\'Количество элементов, больших предыдущего\', col);

end.