Сформировать целочисленный массив из 25 элементов. элементы массива принимают значения от -15 до 20. найти максимальный элемент и его номер надо(турбо паскале), за ранее )

Type
  arr=array[1..25] of integer;
var
  ar:arr;
  i,maxi,max:integer;
begin
  randomize;
  max:=-16;
  for i:=1 to 25 do begin
    ar[i]:=(random(36)-15);
    write(ar[i],' ');
    if ar[i]>max then begin
      max:=ar[i];
      maxi:=i;
    end;
  end;
  writeln;
  write(max,' ',maxi);
  readln;
end.