Паскаль: в произвольно заданном одномерном массиве определить 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)