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

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 max