Найти номер максимального элемента массива а[1..10] — Pascal(Паскаль)

uses crt;
const nmax=10;
var a:array[1..nmax] of integer;
    n,i,k:byte;
    max:integer;
begin
clrscr;
randomize;
write('kokich elementov n=');
readln(n);
max:=0;
for i:=1 to n do
  begin
   a[i]:=random(20);
   write(a[i]:4);
   if max<a[i] then
   begin
    max:=a[i];
    k:=i;
   end;
  end;
writeln;
writeln('nomer max chisla=',k);
readkey;
end.