Найти максимальный из его локальных минимумов

[ALEXandr20333]

Дан массив размера N. Найти максимальный из его локальных минимумов (локальный минимум -это элемент, который меньше любого из своих соседей)
вот код в паскале помогите переделать в делфи и что надо кидать на форму
var
i:integer; // счетчик в цикле
min:integer; // максимальный из локальных минимумов
N:integer;
a: array [1..10] of integer;
bol:boolean; //флаг нахождения первого локального минимума
begin
// ввод данных
writeln('Введите N (N<=10)');
readln(N);
// ручной ввод значений массива
for i:=1 to n do
begin
write('a[',i,']=');
readln(A[i]);
end;
min:=0; // начальное значение переменной
bol:=false; // начальное значение переменной
for i:=2 to n-1 do
begin
if (a[i]//проверка элемента на локальный минимум
begin
// если локальный минимум не первый и приэтом больше максимального локального минимума
if bol and (minthen min:=a[i];
if (not bol) then //если локальный минимум первый
begin min:=a[i]; bol:=true; end;
end;
end;
end;
// вывод результата
writeln('максимальный из локальных минимумов = ',min);
end.