随机数。。。

program suijishu;
{$APPTYPE CONSOLE}
var
  i,j,r,n,m:integer;
  All:array[0..1000] of integer;//这个数组用来装随机数的
  Result:array[0..1000] of integer;//这个数组用来装结果的
begin
writeln('请输入m，n，产生在n范围内的m个随机数');
readln(m,n);
if  n<m then
    writeln('错了喔..大小倒了也!')
else
begin
  for i:=0 to n-1 do
    All[i]:=i;
  //产生M个随机数
  for i:=0 to m-1 do
  begin
    j:=random(n);
    r:=j mod (n-1-i);
    Result[i]:=All[r];
    All[r]:=All[n-1-i];
  end;
  for i:=0 to m-1 do
  begin
    write(Result[i],' ');
  end;
end;   writeln;
writeln('按回车退出！');
    readln;
end.