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

program tt;
uses crt;
var
  m:array[1..100] of integer;
  n,i,k:byte;
  max:integer;
begin
  ClrScr;
  write('Введите размер массива:');
  readln(n);
  writeln('Введите элементы массива: ');
  for i:=1 to n do
    read(m[i]);
  max:=m[1];
  for i:=2 to n do
    if m[i]>max then begin
      max:=m[i];
      k:=i;
    end;
  writeln('Максимальный элемент: ',max,' его номер: ',k);
  readln;
end.