Дан массив из 5 целых чисел, найти номер максимального элемента. (Паскаль)

01. program massiv5; 02. uses crt; 03. const N=10; 04. type x=array [1 ... N] of integer; 05. var a:x; 06. i:integer; 07. max:integer; 08. imax:integer; 09. begin10. clrscr; 11. randomize; 12. for i:=1 to N do 13. begin14. a[i]: = - 50+random (101) ; 15. write (A[i]:5) 16. end; 17. writeln; 18. imax:=1; 19. max:=A[1]; 20. for i:=2 to N do 21. if max