Задан одномерный массив из N чисел.Проверить,есть ли в массиве положительные элементы и если есть то найти среди них максимальное — Pascal(Паскаль)

const
n=10;
var
i,max:integer;
f:boolean;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=11-random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

for i:= 1 to N do begin 
   if (a[i]>0) then begin F:=true; break; end; 
end;
max:=0;
if (F) then begin
  for i:= 1 to N do begin 
     if (a[i] > max) then max:=a[i];
  end;
end;

writeln('-------');
writeln('Максимальное ', max);

writeln();
end.