隨機數。。。

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.