Задача на паскале: Дано n чисел найти номер максимального числа.

constm=20; {размер массива чисел} vararr: array[1… m] of byte; max_num, max_index: byte; i: byte; beginrandomize; for i: =1 to m do beginarr[i]: =random (100); write (arr[i]: 3); end; max_index: =1; max_num: =arr[1]; for i: =2 to m doif arr[i] > max_num then beginmax_index: =i; max_num: =arr[i]; end; writeln; writeln ('Max=',max_num); writeln ('position: ', max_index); readlnend.