Вмассиве, состоящем из 10 целых чисел, найти наибольший элемент оканчивающийся на 5 буду седечно !

Const
   n = 5;
type
   mas = array[1..n] of integer
var 
   max : integer;
begin 
   max := 0;
   for i:=1 to n do 
      if (max < mas[i]) and (mas[i] mod 5 = 0) then max := mas[i];

   writeln(max);
end.