Сформировать целочисленный массив из 25 частей. Элементы массивапринимают значения от -15

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]gt;max then begin
      max:=ar[i];
      maxi:=i;
    end;
  end;
  writeln;
  write(max,' ',maxi);
  readln;
end.