function wierddividesplit(Number,Divisor: integer): array of integer;
var t,i: integer;
begin
t := number/divisor;
setarraylength(result,t);
for i := 0 to t-1 do result[i] := t;
// i have NO idea why you want this :SSS
end;