Создать метод, программку и тест. Дана последовательность из 50-ти чисел. Найти

Последовательность из 50 чисел, принимать от 1 до 50 или различные числа до 50 ?

Const n=50;
Var a,k:array[1..n] of integer;
i,c:integer;
Begin
Randomize;
Writeln('Введите число c: ');
Readln(c);
 For i:=1 to n do 
begin 
 A[i]:=Random(10); 
Write(i,' '); 
end; 
Writeln; 
 For i:=1 to n do 
Begin 
 If a[i] mod c=0 then
 Begin
 Write(a[i],' ');
  end;
 end; 
end.