Заполнить линейный массив случайными неповторяющимися числами: а) из отрезка от 1 до 100 б) из отрезка от 1 до N — Pascal(Паскаль)

var
a:array[1..100] of integer;
i,j,n,f:integer;
begin
randomize;
writeln('vvedite razmer massiva N');
readln(n);
for i:=1 to N do
repeat
f:=0;
a[i]:=random(101);
for j:=1 to i-1 do
if a[j]=a[i] then f:=1;
until f=0; 
for i:=1 to n do
write(a[i],' ');
readln;
end.