Определить максимальное число в цикле (15 целых чисел), но и его порядковый номер- Pascal(Паскаль)

program zad3;
var i,a,max,num:integer;
begin
read(a);
num:=1;
max:=a;
for i:=2 to 15 do 
begin
read(a);
if max<a then
begin
         max:=a;
         num:=i;
         end;
write('num=',num);
write('max=',max);
readln;
end.