Используя датчик случайных чисел,заполнить массив из 20 элементов не повторяющимися числами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 const n=20;
var
  Form1: TForm1;
  a:array[1..n,1..n] of integer;
  m,i,j,x:integer;
  f:boolean;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
m:=1;
a[i,j]:=random(2*n)-n;
for i:=1 to n do
 begin
  repeat
   f:=false;
   x:=random(2*n)-n;
   for j:=1 to m do
   if a[j,i]=x then f:=true;
  until f=false;
  a[i,j]:=x;
  m:=m+1;
 Memo1.Text:=Memo1.Text+'  '+IntToStr(a[i,j]);
 
end;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
const n=10;//для 20 нужно большое поле
var a:array[1..n,1..n] of integer;
    i,j,k,p,f:integer;
    s,s1:string;
begin
Memo1.Font.Name:='Courier New';//установим моноширный шрифт
randomize;
for i:=1 to n do
for j:=1 to n do
repeat
 f:=0;
 a[i,j]:=-10+random(n*n+1);//минимальный набор чисел от -10 до n*n-10
 for k:=1 to n do
 for p:=1 to n do
 if a[i,j]=a[k,p] then inc(f);
until f=1; //только 1 совпадение, пишем
for i:=1 to n do
 begin
  s1:='';
  for j:=1 to n do
   begin
    str(a[i,j]:4,s);
    s1:=s1+s;//делаем строку из чисел
   end;
  Memo1.Lines.Add(s1);//заносим в Мемо
 end;
 
end;