Помогите решить 3 вариант задачу 3

Question

Помогите решить 3 вариант задачу 3

---

Answer 1

Const n=8;
var
  a: array[1..n] of integer;
  max,k: integer;
  i: byte;
begin
  k:=0;
  max:=-100;
  for i:=1 to n do begin;    
    read (a[i]);
    if (a[i]<0) and (a[i]>max) then begin
        max:=a[i];
        k:=i;
    end;   
  end;
  writeln;
  writeln ('max=',max,'   k=',k);
end.
-----------------------------------
Пример:
2 -2 5 -5 9 -9 4 -4 
max=-2   k=2