Pascal abc. дан одномерный массив из n действительных чисел. найти номер последнего максимального элемента.

Program asd;

Uses crt;

var a:array [1..100] of integer;

   n,k, i,max:integer;

begin

writeln ('Размер массива');

readln (n);

for i:=1 to n do

begin

readln (a[i]);

if a[i]>=max

then begin

       max:=a[i];

       k:=i;

      end;

end;

writeln (k);

end.