Для заполнения массива случайными числами из диапазона (0; 50)мы должны подключить датчик случайных чисел, используя функцию *

Var a:array[1..10]of integer;
i:integer;
begin
Randomize;
For i:= 1 to 10 do
a[i]:=Random(51);
end.