срочно!!!!! напишите пожалуйста программу на паскале к задаче Дано н-натуральных чисел не привышавшая 300 .Найти наибольшее число с предпоследней цифрой 0. заранее спасибо

begin   var max := 0;   var n := readinteger('Введите n: ');   write('Введите n чисел: ');   for var i := 1 to n do   begin     var a := readinteger();     if(a.ToString.Length > 1) then        if(a.ToString[a.ToString.Length - 1] = '0') then          if(a > max) then max := a;   end;   write(max); end.