Var k, m: integer; Dat: array[1..10] of integer; Begin A [1]

Вы вводите 2 целочисленные переменные: k, m

И объявляете целочисленный массив: Dat , в котором выделяется память под 10 ячеек.

Дальше вы присваиваете каждому элементу массива Dat, собственное значение A[1] := 20, A[4] := 36 и т.д

После этого вы присваиваете m значение 1

И создаете цикл от 1 до 10, в котором у вас происходит сопоставленье элемента A[k] и элемента A[m]. В случае, если А[k] lt; A[m]. То вы прибавляете к переменной m единицу.

После этого цикла, вы выводите на экран это самое m, которое по сути указывает количество чисел, которые больше чем предыдущее