paskal помогите , скоро экзамены , но как сделать ... я

Program z;
var x,max,n,i:integer;
begin
readln(n);   запросить количество чисел
max:=0;      изначальное значение максимума
for i:=1 to n do
begin
 readln(x);    считать еще одно число
 if (x mod 16=0) and (xgt;max)
     then max:=x; если число кратно 16 и больше предшествующего 
                           значения max, то считать его максимумом
end;
writeln(max);
end.