Сдатчика случайных чисел на интернете от 25 до 100 получить целочисленный массив состоящий из 27 элементов ( это контородьная работа )

Program n1;
var a: array[1..27] of integer;
i: integer;
begin
randomize;
for i:=1 to 27 do a[i]:=random(76)+25; 
end.