статические массивы в pascal'е ?

[golerka]

Все массивы являются статическими. Программа должна предусматривать быструю смену размерности рабочих массивов с внесением минимальных изменений в код программы. Для заполнения значений исходного массива допускается использование генератора случайных чисел. Результат вычислений вывести на экран.


Сформировать целочисленный массив А(85), элементами которого являются случайные числа из диапазона [-20…10]. Найти величину наибольшего среди отрицательных чисел этого массива.

спасибо за помощь !

[Пепел Феникса]

Program Test;
uses crt;
const N=85;
var A:array[1..N] of integer;
     k,i:integer;
BEGIN
 clrscr;
 Randomize;
 for i:=1 to N do A[i]:=Random(30)-20;
 k:=-500;
 for i:=1 to N do if (A[i]>k)and(A[i]<0) then k:=A[i];
 write(k);
 readln;
END.

для изменения размерности измени константу и все