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

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