В одномерном массиве А(10)найти значение и индекс наибольшего из отрицательных элементов. pascal abc

Program n1; var a: array[1..10] of integer; i,im,om: integer; begin write('исходный массив: '); a[1]:=random(21)-10; write(a[1],' '); om:=a[1]; for i:=2 to 10 do  begin a[i]:=random(21)-10; write(a[i],' '); if (a[i]<0) and (a[i]>om) then begin om:=a[i]; im:=i; end; end; writeln; writeln('максимальный среди отрицательных: a[',im,']=',om); end.