Нахождение наибольшего числа из промежутка

[BaronVik]

В целочисленном массиве состоящим из 30 положительных элементов найти наибольший элемент не превосходящий числа 20
Всю голову изломал,ничего не получается =(

[Филантроп]

max:=-1;
for i:=1 to 30 do
if (a[i]>max) and(a[i]<=20) then max:=a[i];
writeln('max=',max);

[BaronVik]

Чтото неработает,мб я гдето напортачил?

var i:integer;
max:real;
a:array[1..30]of real;
begin
for i:=1 to 30 do
readln (a[i]);
max:=-1;
if (a[i]>max) and(a[i]<=20) then max:=a[i];
writeln('max=',max);
end.

[Филантроп]

var i:integer;
max:real;
a:array[1..30]of real;
begin
for i:=1 to 30 do
readln (a[i]);max:=-1;
for i:=1 to 30 do
if (a[i]>max) and(a[i]<=20) then max:=a[i];
writeln('max=',max:6:2);
end.

[BaronVik]

Всё зароботало,мне ещё учиться и учиться,спасибо большое =)