Pascal Массивы надо написать программу

А вот ещё проще (всё делает сам Pascal ;-)

вот функция random(x) - выдает случайное значение от 0 ДО x.
К примеру: random(5) вернет случайное значение из промежутка [0;4].
Ваша задача решается так: заводите пару переменных mini и maxi - для хранения минимума и максимума значений, соответственно. Присвойте переменной mini максимально возможное значение, а переменной maxi - минимальное.
Потом генерируете каким-либо способом (в цикле или вручную) 10 раз с помощью random число и присваиваете его переменной, например num. После каждого использования функции random надо сравнивать значение переменной num по очереди со значениями maxi и mini. Если num больше maxi, то присваеваете значение num переменной maxi, в противном случае ничего не делаете на этот раз. Если num меньше mini, то присваиваете значение num переменной mini, в противном случае ничего не делаете на этот раз. Все. В самом конце, когда 10 раз получили случайное значение и сравнили его с maxi и mini, просто выводите maxi и mini.

Пример:
var
i, maxi,mini,num:integer;
BEGIN
maxi := 0;
mini := 11;
write('Числа: ');
for i := 1 to 10 do begin
num := random(10)+1; // [1;10]
write(num,' ');
if num > maxi then maxi := num;
if num < mini then mini := num;
end;
writeln;
writeln('min:',mini,' max:',maxi);
END.