Паскаль: в произвольно заданном одномерном массиве определить 4 элемента с наибольшими значения. определить сколько отрицательных значений оказалось среди найденных

N=0 #кол-во N1=0 N2=0 N3=0 N4=0 counter=1 ans=0 for i in range(N):     x=int(input())     if counter=1 and x>N1:         N1=x         counter=2     elif counter=2 and x>N2:         N2=x         counter=3     elif counter=3 and x>N3:         N3=x         counter=4     elif counter=4 and x>N4:         N4=x         counter=1 for i in [N1,N2,N3,N4]:     if i<0:         ans+=1 print(ans)