Определить максимальный элемент среди отрицательных и его индекс(номер) — Pascal(Паскаль)

var
a:array[1..100]of integer;
n,i,max,nmax:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
for i:=1 to n do
a[i]:=random(100)-50;
writeln('massiv');
for i:=1 to n do 
write(a[i]:5);
max:=-100;
for i:=1 to n do
if (a[i]<0)and(a[i]>max)then 
begin
max:=a[i];
nmax:=i;
end;
writeln;
writeln('max otric element=',max,' ego index=',nmax);
end.