Найти максимальное значение положительных элементов массива

Var
i,max:integer;
a: array [1..10] of integer;
begin
writeln(Введите числа);
for i:=1 to 10 do
read(a[i]);
max:=a[1];
for i:=1 to 10 do
begin
if maxlt;a[i] then
max:=a[i];
end;
writeln(max = , max);
end.