Так же как и в предыдущем примере сначала создаём модуль.

unit massif;

interface

const

n = 100; {Максимальное кол-во эл-ов массива}

procedure max( i : integer); {i кол-во эл - ов массива}

implementation

procedure max(i : integer);

var

mass : array[1..n] of real;

j : integer;

max : real;

begin

randomize;

for j := 1 to i do {Заполняем массив случ. числами. выводим результат}

begin

mass[j] := random(100) - 50 + random;

write(mass[j]:2:2, ' ');

end;

max := mass[1]; {в начале считаем, что 1 эл- макс}

writeln;

for j := 1 to i do

if mass[j] > max then max := mass[j];

writeln;

writeln(' Максимальный эл-т массива = ', max:2:2);

end;

end.

А потом из основной задачи только вызываем процедуру. Так как в процедуре максимальный эл-т массива определён не более 100, в основной программе проверяем корректность ввода кол-ва эл-ов.

program zadacha2;

uses massif;

var

i : integer; {Кол-во эл-ов массива}

begin

writeln('Введите кол-во эл-ов массива не больше 100');

readln(i);

if (i <= 100) and (i > 0) then max(i)

else writeln('Число не входит в заданный диапазон');

readln;

end.

(Скачать решение.)