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

vari,max:integer;a: array [1..10] of integer;beginwriteln('Введите числа');for i:=1 to 10 doread(a[i]);max:=a[1];for i:=1 to 10 dobeginif max<a[i] thenmax:=a[i];end;writeln('max = ', max);end.