как сформировать одномерный массив различных чисел в паскале?

Не силён в программировании.. .
Но - вот.
Значения НЕ повторяются.

var
a: array [1..100] of Integer;

function Put(n, c: Integer): Boolean;
// n - индекс массива, c - число;
var
i: Integer;
begin
for i := 1 to n do
begin
if a = c then
begin
Result := False;
Exit;
end;
end;
a[n] := c;
Result := True;
end;

var
i: Integer;

begin
Randomize;
for i := 1 to 100 do
begin
repeat
Put(i, Random(10000));
until
a <> 0;
WriteLn(a);
end;
ReadLn;
end.

for i:=1 to n do
begin
m:=random(100);
end;

где n размерность массива, укажешь при описании, 100- интервал из которого будут выбираться числа

var a : array[1..255] of real;
i : integer;
begin
for i := 1 to 255 do begin
readln(a);
end;
end.

Массив задается так : имя: array [номер первого элемента .. номер последнего элемента] of тип переменной;
Пример a:array [1..100] of integer;{в нем будет 100 элементов}
может быть и так a:array [100..1234] of integer;
типы переменных
integer - целые числа
real - дробные числа
byte - целые от 0 да 255 включительно
заполняется
var a:array [1..100] of integer;
i:longint;
begin
randomize;//каждый раз выдаются новые числа
for i:=1 to 100 do
a:=random(100);// значения до 100
end;
а если дробными то
var a:array [1..100] of real;
i:longint;
begin
randomize;
for i:=1 to 100 do
a:=random(100)+random;
end;