1. Що таке блог? 2. Які служби дають змогу вести безкоштовний блог?
3. Правила, що не можна робити при веденні журналу блогу?
4. Підготуйте фотографії та інформацію якими ви б хотіли
поділитися у власному блозі.

Uses crt;
const
  month_length = 30;

var
  f: text;
  max, i, k, s, n: integer;
  a: array[1..366] of integer;

begin
  assign(f, 'file.txt');
  //закоментировать если файл существует
  rewrite(f);
  randomize;
  for i := 1 to 365 do
    writeln(f, Random(100) - 50);
  close(f);
 
  reset(f);
  n := 0;
  while not eof(f) do
  begin
    n := n + 1;
    readln(f, a[n]);
    Write(a[n], ' ');
    if (a[n] > max) or (n = 1) then max := a[n];
  end;
  close(f);
 
  Writeln;
  s := 0;
  k := 0;
  for i := 1 to n do
  begin
    if abs(a[i] - max) <= 3 then k := k + 1;
    if n - i <= month_length then s := s + a[i];
  end;
  writeln('Last month average = ', s / month_length);
  writeln('Tops = ', k);
 
end.

В коде есть две проблемы:
1) input().split() возвращает список строк. Строки сравниваются лексикографически, и не всегда совпадают с тем, как соотносятся числа: например, "8" > "10", несмотря на то, что 8 < 10. Это лечится преобразованием к целому типу.
2) Это не приведет в ошибке, но не очень аккуратно: условие a[i] > a[i - 1] and i != 0 при i = 0 сравнит a[0] и a[-1], то есть первый и последний элемент, и только потом узнает, что i = 0. Сравнение этих элементов массива бессмысленно, код не ломается на этом месте только из-за особенности языка, в котором определены отрицательные индексы. Если переставить условия местами, то сначала код проверит, что i != 0, и если это не так, он ничего сравнивать не будет. Другой поправить - поменять границы в range, так будет немного быстрее.

Итоговый вариант:
a=input().split()
for i in range(1, len(a)):
   if int(a[i])>int(a[i-1]):
       print(a[i])

Пример ввода:
1 2 3 3 2 1

Пример вывода:
2
3