Помогите пожалуйста составить программу. НА ПАСКАЛЕ.ВТОРОЙ ВАРИАНТ.50 баллов даю

2) var n,max,nom,i:integer;b: array [1..1000] of integer;begin//создание какого то массиваreadln(n);max:=b[1]; nom:=1;for i:=2 to n do if b[i]>max then begin max:=b[i]; nom:=i; end;writeln(max,nom);end.