Задачка с массивом (Delphi)

[777UFO777]

Дан массив размера N. Найти максимальный из его локальных минимумов.
Помогите решить пожалуйста.

[Ozerich]

var max,i,n:integer;
mas:array of integer;
begin 
max:=0;
for i=1 to n-2 do
if(mas[i-1]>mas[i]) and (mas[i+1]>mas[i]) then
if mas[i]>max then max=mas[i];
writeln(max);
readln;
end.

[777UFO777]

а как сам массив создать?

[777UFO777]

желательно в delphi в формах