Определить максимальное значение среди положительных элементов из n введеных

Program gt;
var a,i,n,max:longint;
begin
read(N);
max:=0;
for i:=1 to n do
begin
read(A);
if(a>max)then max:=a;
end; 
if(max=0)then writeln('положительных чисел нет')else writeln(max);
end.